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,_) keyPressHandle _ (ks,_)
-- Return: exit -- Return: exit
| ks == xK_Return = do historyPush | ks == xK_Return = do historyPush
liftIO $ hPutStrLn stderr "Hello world"
return () return ()
-- backspace -- backspace
| ks == xK_BackSpace = deleteString Prev >> go | ks == xK_BackSpace = deleteString Prev >> go