use pp instead of show to show pp-d stuff :)

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 ()