summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 ()