From 06edcfac35646d8d4735de62dd14efcb7735ff0d Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 28 Nov 2011 09:35:36 +0000
Subject: [PATCH] Fix Solaris breakage (I hope)
---
System/Posix/Terminal.hsc | 1 +
System/Posix/Terminal/ByteString.hsc | 4 +++-
2 files changed, 4 insertions(+), 1 deletion(-)
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)
--
GitLab