Haddock fixes

darcs-hash:20071012100416-32816-049c57f0dbc5d794db1b66295429ba6cd5b7b160.gz

1 files changed, 4 insertions, 4 deletions

diff --git a/XPrompt.hs b/XPrompt.hs
index f4debb0..823478e 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -266,13 +266,13 @@ keyPressHandle :: KeyMask -> KeyStroke -> XP ()
 keyPressHandle mask (ks,_)
     | mask == controlMask =
         case () of
--- ^U
+-- ctrl U
           _ | ks == xK_u -> killBefore  >> go
--- ^K
+-- ctrl K
             | ks == xK_k -> killAfter   >> go
--- ^A
+-- ctrl A
             | ks == xK_a -> startOfLine >> go
--- ^E
+-- ctrl E
             | ks == xK_e -> endOfLine   >> go
 -- Unhandled control sequence
             | otherwise  -> eventLoop handle