diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-02 12:43:34 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-02 12:43:34 +0100 |
| commit | 889b5bb83b876f83022571816acc7709d7a05821 (patch) | |
| tree | ef138449acd853f70af5262f99b56fadb691e39d /libraries/base/GHC/Foreign.hs | |
| parent | de1ae80b315c7b75c072c57e60ff8180c8e7bb07 (diff) | |
| download | haskell-889b5bb83b876f83022571816acc7709d7a05821.tar.gz | |
Remove an import loop
Diffstat (limited to 'libraries/base/GHC/Foreign.hs')
| -rw-r--r-- | libraries/base/GHC/Foreign.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/Foreign.hs b/libraries/base/GHC/Foreign.hs index 3924d404a5..ceb7447b81 100644 --- a/libraries/base/GHC/Foreign.hs +++ b/libraries/base/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 ()) |