git.iko.soy/vty
on master help sign in
warning fixup again
commit761e51d44c61ec35d3ae4ee53b4632129a5b70b0 authorCorey O'Connor <coreyoconnor@gmail.com> dateThu 7 Aug 2014, 21:26 (12 years ago) parent93c784d
2 files changed+7−1
compare with master
unifiedsplit
src/Graphics/Vty/Inline/Unsafe.hs+6 test/Verify.hs+1−1
src/Graphics/Vty/Inline/Unsafe.hs+6
@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12{-# OPTIONS_HADDOCK hide #-}
23module Graphics.Vty.Inline.Unsafe where
34
@@ -11,7 +12,12 @@ import Data.IORef
1112
1213import GHC.IO.Handle (hDuplicate)
1314
15+#if __GLASGOW_HASKELL__ < 708
1416import System.IO (Handle, stdin, stdout, hSetBuffering, BufferMode(NoBuffering))
17+#else
18+import System.IO (stdin, stdout, hSetBuffering, BufferMode(NoBuffering))
19+#endif
20+
1521import System.IO.Unsafe
1622
1723import System.Posix.IO (handleToFd)
test/Verify.hs+1−1
@@ -84,7 +84,7 @@ instance Arbitrary DoubleColumnChar where
8484 ++ [ toEnum 0x309B .. toEnum 0xA4CF ]
8585
8686liftIOResult :: Testable prop => IO prop -> Property
87−liftIOResult = morallyDubiousIOProperty
87+liftIOResult = ioProperty
8888
8989#if __GLASGOW_HASKELL__ <= 701
9090instance Random Word where