git.iko.soy/vty
on master help sign in
warning fixup again
761e51dCorey O'Connor
src/Graphics/Vty/Inline/Unsafe.hs+6
compare with master
unifiedsplit
@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
1{-# OPTIONS_HADDOCK hide #-}
2{-# OPTIONS_HADDOCK hide #-}
2module Graphics.Vty.Inline.Unsafe where
3module Graphics.Vty.Inline.Unsafe where
3
4
@@ -11,7 +12,12 @@ import Data.IORef
11
12
12import GHC.IO.Handle (hDuplicate)
13import GHC.IO.Handle (hDuplicate)
13
14
15+#if __GLASGOW_HASKELL__ < 708
14import System.IO (Handle, stdin, stdout, hSetBuffering, BufferMode(NoBuffering))
16import System.IO (Handle, stdin, stdout, hSetBuffering, BufferMode(NoBuffering))
17+#else
18+import System.IO (stdin, stdout, hSetBuffering, BufferMode(NoBuffering))
19+#endif
20+
15import System.IO.Unsafe
21import System.IO.Unsafe
16
22
17import System.Posix.IO (handleToFd)
23import System.Posix.IO (handleToFd)
test/Verify.hs+1−1
@@ -84,7 +84,7 @@ instance Arbitrary DoubleColumnChar where
84 ++ [ toEnum 0x309B .. toEnum 0xA4CF ]
84 ++ [ toEnum 0x309B .. toEnum 0xA4CF ]
85
85
86liftIOResult :: Testable prop => IO prop -> Property
86liftIOResult :: Testable prop => IO prop -> Property
87−liftIOResult = morallyDubiousIOProperty
87+liftIOResult = ioProperty
88
88
89#if __GLASGOW_HASKELL__ <= 701
89#if __GLASGOW_HASKELL__ <= 701
90instance Random Word where
90instance Random Word where