Prompt: haddock fixes

This commit is contained in:
Andrea Rossato 2007-11-15 20:48:28 +00:00
parent 3d39b52959
commit 2a3ac53d30

View File

@ -68,8 +68,6 @@ import System.Posix.Files
-- TODO: -- TODO:
-- --
-- * scrolling the completions that don't fit in the window (?) -- * scrolling the completions that don't fit in the window (?)
--
-- * commands to edit the command line
type XP = StateT XPState IO type XP = StateT XPState IO
@ -312,7 +310,7 @@ killAfter :: XP ()
killAfter = killAfter =
modify $ \s -> s { command = take (offset s) (command s) } modify $ \s -> s { command = take (offset s) (command s) }
-- | Kill the next/previous word -- | Kill the next\/previous word
killWord :: Direction -> XP () killWord :: Direction -> XP ()
killWord d = do killWord d = do
XPS { command = c, offset = o } <- get XPS { command = c, offset = o } <- get