diff options
author | Simon Marlow <marlowsd@gmail.com> | 2011-11-28 09:35:36 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-28 09:35:36 +0000 |
commit | 06edcfac35646d8d4735de62dd14efcb7735ff0d (patch) | |
tree | e69bff7c3bcabc823c27886d1f1de0054fe30647 /System/Posix/Terminal | |
parent | c849742c76d77a8910aff0f48db684b31bbd5382 (diff) |
Fix Solaris breakage (I hope)
Diffstat (limited to 'System/Posix/Terminal')
-rw-r--r-- | System/Posix/Terminal/ByteString.hsc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/System/Posix/Terminal/ByteString.hsc b/System/Posix/Terminal/ByteString.hsc index a75c37a..1b1845c 100644 --- a/System/Posix/Terminal/ByteString.hsc +++ b/System/Posix/Terminal/ByteString.hsc @@ -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) |