From fe11b00948317af6f11bf17432bf4683694f2294 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Fri, 12 Oct 2007 12:04:16 +0200
Subject: Haddock fixes

darcs-hash:20071012100416-32816-049c57f0dbc5d794db1b66295429ba6cd5b7b160.gz
---
 XPrompt.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'XPrompt.hs')

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
-- 
cgit v1.2.3