Fix Solaris breakage (I hope)
authorSimon Marlow <marlowsd@gmail.com>
Mon, 28 Nov 2011 09:35:36 +0000 (09:35 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 28 Nov 2011 09:35:36 +0000 (09:35 +0000)
System/Posix/Terminal.hsc
System/Posix/Terminal/ByteString.hsc

index 5657662..b00c6d6 100644 (file)
@@ -77,6 +77,7 @@ import Foreign
 import Foreign.C
 import System.Posix.Terminal.Common
 import System.Posix.Types
+import System.Posix.IO
 
 #if __GLASGOW_HASKELL__ > 700
 import System.Posix.Internals (withFilePath, peekFilePath)
index a75c37a..1b1845c 100644 (file)
@@ -76,6 +76,8 @@ module System.Posix.Terminal.ByteString (
 import Foreign
 import System.Posix.Types
 import System.Posix.Terminal.Common
+import System.Posix.IO.ByteString
+import Data.ByteString.Char8 as B
 
 import Foreign.C hiding (
      throwErrnoPath,
@@ -153,7 +155,7 @@ foreign import ccall unsafe "openpty"
             -> IO CInt
 #else
 openPseudoTerminal = do
-  (Fd master) <- openFd "/dev/ptmx" ReadWrite Nothing
+  (Fd master) <- openFd (B.pack "/dev/ptmx") ReadWrite Nothing
                         defaultFileFlags{noctty=True}
   throwErrnoIfMinus1_ "openPseudoTerminal" (c_grantpt master)
   throwErrnoIfMinus1_ "openPseudoTerminal" (c_unlockpt master)