Skip to content
Snippets Groups Projects
Commit 06edcfac authored by Simon Marlow's avatar Simon Marlow
Browse files

Fix Solaris breakage (I hope)

parent c849742c
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment