X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FC%2FError.hs;h=74d4e1a58b32c3f201143115a2e6d2522c1b93f5;hb=aaf764b3ad8b1816d68b5f27299eac125f08e1a5;hp=927924c8689293a80136b55123c8406cfea2f6bf;hpb=3bc707020c8d0f7a11b652c38d33f1d9c87d3ae7;p=haskell-directory.git diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs index 927924c..74d4e1a 100644 --- a/Foreign/C/Error.hs +++ b/Foreign/C/Error.hs @@ -1,4 +1,4 @@ -{-# OPTIONS -fno-implicit-prelude -#include "HsBase.h" #-} +{-# OPTIONS_GHC -fno-implicit-prelude -#include "HsBase.h" #-} ----------------------------------------------------------------------------- -- | -- Module : Foreign.C.Error @@ -91,7 +91,7 @@ module Foreign.C.Error ( -- calculated for us -- #ifndef __NHC__ -#include "ghcconfig.h" +#include "HsBaseConfig.h" #endif -- system dependent imports @@ -119,12 +119,13 @@ import GHC.IOBase import GHC.Num import GHC.Base #else -import System.IO ( IOError, Handle, ioError ) +import System.IO ( Handle ) +import System.IO.Error ( IOError, ioError ) import System.IO.Unsafe ( unsafePerformIO ) #endif #ifdef __HUGS__ -{-# CBITS PrelIOUtils.c #-} +{-# CFILES cbits/PrelIOUtils.c #-} #endif