[commit: haskeline] master: Don't require NondecreasingIndentation. (80aa7b5)
Ian Lynagh
igloo at earth.li
Sat Oct 22 00:53:43 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/haskeline
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/80aa7b59467c0618a40859ecfb504faf4b913354
>---------------------------------------------------------------
commit 80aa7b59467c0618a40859ecfb504faf4b913354
Author: Judah Jacobson <judah.jacobson at gmail.com>
Date: Mon Oct 17 01:03:46 2011 +0000
Don't require NondecreasingIndentation.
There was only one place in the source that required it.
>---------------------------------------------------------------
System/Console/Haskeline/Command/Completion.hs | 4 ++--
haskeline.cabal | 2 --
2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/System/Console/Haskeline/Command/Completion.hs b/System/Console/Haskeline/Command/Completion.hs
index 06cb9b5..1a0ca25 100644
--- a/System/Console/Haskeline/Command/Completion.hs
+++ b/System/Console/Haskeline/Command/Completion.hs
@@ -72,11 +72,11 @@ pagingCompletion :: MonadReader Layout m => Key -> Prefs
pagingCompletion k prefs completions = \im -> do
ls <- asks $ makeLines (map display completions)
let pageAction = do
- askFirst prefs (length completions) $
+ askFirst prefs (length completions) $
if completionPaging prefs
then printPage ls
else effect (PrintLines ls)
- setState im
+ setState im
if listCompletionsImmediately prefs
then pageAction
else effect RingBell >> try (k +> const pageAction) im
diff --git a/haskeline.cabal b/haskeline.cabal
index dffb893..3313c2b 100644
--- a/haskeline.cabal
+++ b/haskeline.cabal
@@ -69,8 +69,6 @@ Library
UndecidableInstances
PatternSignatures, CPP, DeriveDataTypeable,
PatternGuards
- if impl(ghc >= 7.1)
- Extensions: NondecreasingIndentation
Exposed-Modules:
System.Console.Haskeline
System.Console.Haskeline.Completion
More information about the Cvs-libraries
mailing list