Remove an import loop

ghc · Jun 2, 2013 · 4b0addb · 4b0addb
1 parent d901b4c
commit 4b0addb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 11 deletions.
diff --git a/GHC/Foreign.hs b/GHC/Foreign.hs
@@ -49,12 +49,12 @@ import Control.Monad
 import Data.Tuple (fst)
 import Data.Maybe
 
-import {-# SOURCE #-} System.Posix.Internals (puts)
 import GHC.Show ( show )
 
 import Foreign.Marshal.Alloc
 import Foreign.ForeignPtr
 
+import GHC.Debug
 import GHC.Err (undefined)
 import GHC.List
 import GHC.Num
@@ -70,7 +70,7 @@ c_DEBUG_DUMP :: Bool
 c_DEBUG_DUMP = False
 
 putDebugMsg :: String -> IO ()
-putDebugMsg | c_DEBUG_DUMP = puts
+putDebugMsg | c_DEBUG_DUMP = debugLn
             | otherwise    = const (return ())
 
 

diff --git a/System/Posix/Internals.hs-boot b/System/Posix/Internals.hs-boot