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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
