git.iko.soy/haskell-generate
on master help sign in
fix amp warning
545bed3Benno Fünfstück
tests/doctests.hsc+1−2
compare with master
unifiedsplit
@@ -20,18 +20,17 @@ import Data.List
20import System.Directory
20import System.Directory
21import System.FilePath
21import System.FilePath
22import Test.DocTest
22import Test.DocTest
23+import Prelude
23
24
24##ifdef mingw32_HOST_ARCH
25##ifdef mingw32_HOST_ARCH
25##ifdef i386_HOST_ARCH
26##ifdef i386_HOST_ARCH
26##define USE_CP
27##define USE_CP
27−import Control.Applicative
28import Control.Exception
28import Control.Exception
29import Foreign.C.Types
29import Foreign.C.Types
30foreign import stdcall "windows.h SetConsoleCP" c_SetConsoleCP :: CUInt -> IO Bool
30foreign import stdcall "windows.h SetConsoleCP" c_SetConsoleCP :: CUInt -> IO Bool
31foreign import stdcall "windows.h GetConsoleCP" c_GetConsoleCP :: IO CUInt
31foreign import stdcall "windows.h GetConsoleCP" c_GetConsoleCP :: IO CUInt
32##elif defined(x86_64_HOST_ARCH)
32##elif defined(x86_64_HOST_ARCH)
33##define USE_CP
33##define USE_CP
34−import Control.Applicative
35import Control.Exception
34import Control.Exception
36import Foreign.C.Types
35import Foreign.C.Types
37foreign import ccall "windows.h SetConsoleCP" c_SetConsoleCP :: CUInt -> IO Bool
36foreign import ccall "windows.h SetConsoleCP" c_SetConsoleCP :: CUInt -> IO Bool