XPrompt.hs: remove debugging bits

This commit is contained in:
Andrea Rossato
2007-08-28 08:12:35 +00:00
parent 9994baef5d
commit 3a2c49b148

View File

@@ -269,7 +269,6 @@ keyPressHandle mask _
keyPressHandle _ (ks,_)
-- Return: exit
| ks == xK_Return = do historyPush
liftIO $ hPutStrLn stderr "Hello world"
return ()
-- backspace
| ks == xK_BackSpace = deleteString Prev >> go