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)
import GHC.IO.Device (IODeviceType(Stream))
import GHC.IO.Handle.FD (mkHandleFromFD)
import System.IO (IOMode(ReadMode, WriteMode))
#elif ghcjs_HOST_OS
#elif defined ghcjs_HOST_OS
import System.Posix.IO (fdToHandle)
import qualified System.Posix.IO as Posix
......@@ -60,7 +60,7 @@ foreign import ccall "io.h _pipe" c__pipe ::
foreign import ccall "io.h _close" c__close ::
CInt -> Prelude.IO CInt
#elif ghcjs_HOST_OS
#elif defined ghcjs_HOST_OS
createPipe = error "createPipe"
_ = callStack
Supports Markdown
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