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 | |
| parent | c849742c76d77a8910aff0f48db684b31bbd5382 (diff) | |
Fix Solaris breakage (I hope)
| -rw-r--r-- | System/Posix/Terminal.hsc | 1 | ||||
| -rw-r--r-- | System/Posix/Terminal/ByteString.hsc | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/System/Posix/Terminal.hsc b/System/Posix/Terminal.hsc index 5657662..b00c6d6 100644 --- a/System/Posix/Terminal.hsc +++ b/System/Posix/Terminal.hsc @@ -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) 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) |