Merge pull request #6 from RyanGlScott/windows-ucrt-fix

Avoid Windows linker errors with GHC 9.4.5+
awkward-squad · May 11, 2023 · b9e1084 · b9e1084
2 parents f4df48e + 1976fb5
commit b9e1084
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git a/src/Text/Builder/ANSI.hs b/src/Text/Builder/ANSI.hs
@@ -60,8 +60,8 @@ import Data.Semigroup ((<>))
 import Text.Builder (Builder)
 import qualified Text.Builder as Builder
 import Data.Word (Word8)
-import Foreign.C (CInt (CInt))
 import System.IO.Unsafe (unsafePerformIO)
+import System.Posix.Internals (c_isatty)
 
 -- $intro
 --
@@ -370,9 +370,6 @@ isatty =
   unsafePerformIO (c_isatty 1) == 1
 {-# NOINLINE isatty #-}
 
-foreign import ccall unsafe "isatty"
-  c_isatty :: CInt -> IO CInt
-
 -- Collapse surround/surround to a single surround before phase 1
 {-# RULES
 "surround/surround" [~1] forall a b c d s.

diff --git a/src/Text/Lazy/Builder/ANSI.hs b/src/Text/Lazy/Builder/ANSI.hs
@@ -61,8 +61,8 @@ import Data.Text.Lazy.Builder (Builder)
 import qualified Data.Text.Lazy.Builder as Builder
 import qualified Data.Text.Lazy.Builder.Int as Builder
 import Data.Word (Word8)
-import Foreign.C (CInt (CInt))
 import System.IO.Unsafe (unsafePerformIO)
+import System.Posix.Internals (c_isatty)
 
 -- $intro
 --
@@ -371,9 +371,6 @@ isatty =
   unsafePerformIO (c_isatty 1) == 1
 {-# NOINLINE isatty #-}
 
-foreign import ccall unsafe "isatty"
-  c_isatty :: CInt -> IO CInt
-
 -- Collapse surround/surround to a single surround before phase 1
 {-# RULES
 "surround/surround" [~1] forall a b c d s.