[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