summaryrefslogtreecommitdiffstats
path: root/src/Main.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-08-02 15:24:36 +0000
committertv <tv@shackspace.de>2014-08-02 15:24:36 +0000
commite0e9b8f91d0c51294d7d0efe7478339597b6ef12 (patch)
tree6d454d0a98730bd590b87678ac1671d62d126dcb /src/Main.hs
parentadaca318897dd6966c5cd3a00094c3fdda9b5d96 (diff)
use pp instead of show to show pp-d stuff :)
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs
index ddb5e31..4d8ba5c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -269,8 +269,8 @@ execCommand ExecuteInputBuffer = do
liftIO ringBell
s -> do
let s' = SGR [32] $ gaudySpecial [1] s
- tell [ pp $ "input: <" <> s' <> ">"
- , pp $ SGR [35,1] $ Plain $ init $ tail $ show $ pp s'
+ tell [ pp $ "input: " <> s'
+ , pp $ SGR [35] $ gaudySpecial [1] $ pp s'
]
modifyBuffer (const emptyBuffer)
@@ -397,7 +397,9 @@ gaudySpecial c = gaudySpans c (not . isPrint)
lit :: String -> String
-lit = (>>= flip showLitChar "")
+lit = (>>= f)
+ where f '\ESC' = "^["
+ f c = showLitChar c ""
clearLine :: IO ()