[commit: packages/terminfo] master: Clean up some warnings from the set_curterm patch (140ca44)

git at git.haskell.org git at git.haskell.org
Fri Dec 18 21:50:42 UTC 2015


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

On branch  : master
Link       : http://git.haskell.org/packages/terminfo.git/commitdiff/140ca44db6fc734cfc0388e82f9e5270f31475d8

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

commit 140ca44db6fc734cfc0388e82f9e5270f31475d8
Author: Judah Jacobson <judah.jacobson at gmail.com>
Date:   Fri Dec 18 11:07:56 2015 -0800

    Clean up some warnings from the set_curterm patch


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

140ca44db6fc734cfc0388e82f9e5270f31475d8
 System/Console/Terminfo/Base.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/System/Console/Terminfo/Base.hs b/System/Console/Terminfo/Base.hs
index 719bb65..d2b262c 100644
--- a/System/Console/Terminfo/Base.hs
+++ b/System/Console/Terminfo/Base.hs
@@ -52,7 +52,7 @@ import Foreign.C
 import Foreign.ForeignPtr
 import Foreign.Ptr
 import Foreign.Marshal
-import Foreign.Storable (peek,poke)
+import Foreign.Storable (peek)
 import System.Environment (getEnv)
 import System.IO.Unsafe (unsafePerformIO)
 import System.IO
@@ -118,7 +118,7 @@ withCurTerm :: Terminal -> IO a -> IO a
 withCurTerm (Terminal term) f = withForeignPtr term $ \cterm -> do
         old_term <- set_curterm cterm
         x <- f
-        set_curterm old_term
+        _ <- set_curterm old_term
         return x
 
 



More information about the ghc-commits mailing list