[commit: packages/haskeline] master: Fixing a trivial bug and a comment. (7502ca2)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haskeline

On branch  : master
Link       : http://git.haskell.org/packages/haskeline.git/commitdiff/7502ca2f91f3e738913ef15c7c167907522a2962

>---------------------------------------------------------------

commit 7502ca2f91f3e738913ef15c7c167907522a2962
Author: Bakhtiyar Neyman <bneymanov at gmail.com>
Date:   Mon Feb 15 23:06:49 2016 -0800

    Fixing a trivial bug and a comment.


>---------------------------------------------------------------

7502ca2f91f3e738913ef15c7c167907522a2962
 System/Console/Haskeline.hs                | 6 +++---
 System/Console/Haskeline/Backend/Posix.hsc | 2 +-
 haskeline.cabal                            | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/System/Console/Haskeline.hs b/System/Console/Haskeline.hs
index fe2cf5e..b4fff00 100644
--- a/System/Console/Haskeline.hs
+++ b/System/Console/Haskeline.hs
@@ -320,12 +320,12 @@ withInterrupt act = do
 handleInterrupt :: MonadException m => m a -> m a -> m a
 handleInterrupt f = handle $ \Interrupt -> f
 
--- | Return a print function, which is thread-safe and preserves prompt in terminal-style interaction.
-
+{- | Return a printing function, which in terminal-style interactions is
+thread-safe and may be run concurrently with user input without affecting the
+prompt. -}
 getExternalPrint :: MonadException m => InputT m (String -> IO ())
 getExternalPrint = do
     rterm <- InputT ask
     return $ case termOps rterm of
         Right _ -> putStrOut rterm
         Left tops -> externalPrint tops
-        
\ No newline at end of file
diff --git a/System/Console/Haskeline/Backend/Posix.hsc b/System/Console/Haskeline/Backend/Posix.hsc
index 11cbe2c..c83d28b 100644
--- a/System/Console/Haskeline/Backend/Posix.hsc
+++ b/System/Console/Haskeline/Backend/Posix.hsc
@@ -295,7 +295,7 @@ posixRunTerm hs layoutGetters keys wrapGetEvent evalBackend = do
                             }
                 , closeTerm = do
                     flushEventQueue (putStrOut fileRT) ch
-                    closeHandles hs
+                    closeTerm fileRT
                 }
 
 type PosixT m = ReaderT Encoder (ReaderT Handles m)
diff --git a/haskeline.cabal b/haskeline.cabal
index a5fc2bc..c754604 100644
--- a/haskeline.cabal
+++ b/haskeline.cabal
@@ -1,6 +1,6 @@
 Name:           haskeline
 Cabal-Version:  >=1.10
-Version:        0.7.2.3
+Version:        0.7.2.2
 Category:       User Interfaces
 License:        BSD3
 License-File:   LICENSE