Commit 9020766d authored by Erik de Castro Lopo's avatar Erik de Castro Lopo
Browse files

More CPP usage fixes

parent 266c5aa4
...@@ -23,7 +23,7 @@ import GHC.IO.FD (mkFD) ...@@ -23,7 +23,7 @@ import GHC.IO.FD (mkFD)
import GHC.IO.Device (IODeviceType(Stream)) import GHC.IO.Device (IODeviceType(Stream))
import GHC.IO.Handle.FD (mkHandleFromFD) import GHC.IO.Handle.FD (mkHandleFromFD)
import System.IO (IOMode(ReadMode, WriteMode)) import System.IO (IOMode(ReadMode, WriteMode))
#elif ghcjs_HOST_OS #elif defined ghcjs_HOST_OS
#else #else
import System.Posix.IO (fdToHandle) import System.Posix.IO (fdToHandle)
import qualified System.Posix.IO as Posix import qualified System.Posix.IO as Posix
...@@ -60,7 +60,7 @@ foreign import ccall "io.h _pipe" c__pipe :: ...@@ -60,7 +60,7 @@ foreign import ccall "io.h _pipe" c__pipe ::
foreign import ccall "io.h _close" c__close :: foreign import ccall "io.h _close" c__close ::
CInt -> Prelude.IO CInt CInt -> Prelude.IO CInt
#elif ghcjs_HOST_OS #elif defined ghcjs_HOST_OS
createPipe = error "createPipe" createPipe = error "createPipe"
where where
_ = callStack _ = callStack
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment