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