X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FIOHandle.lhs;fp=ghc%2Flib%2Fghc%2FIOHandle.lhs;h=72f1fae2915884ee266b116f3991a3fba789bbbc;hb=5d9278289bd6886f552951e3ee85200a4ef74f7c;hp=d49935801e541aaa9b4ca8b3a055e06b48ab1374;hpb=a1f430d97717f193646614d877d0815b6ad6c0ac;p=ghc-hetmet.git

diff --git a/ghc/lib/ghc/IOHandle.lhs b/ghc/lib/ghc/IOHandle.lhs
index d499358..72f1fae 100644
--- a/ghc/lib/ghc/IOHandle.lhs
+++ b/ghc/lib/ghc/IOHandle.lhs
@@ -26,9 +26,11 @@ import PrelTup
 import PrelBase
 import GHC
 
+import Foreign  ( Addr, 
 #ifndef __PARALLEL_HASKELL__
-import Foreign  ( ForeignObj, Addr, makeForeignObj, writeForeignObj )
+                  ForeignObj, makeForeignObj, writeForeignObj 
 #endif
+		  )
 
 #if defined(__CONCURRENT_HASKELL__)
 import ConcBase
@@ -127,7 +129,7 @@ stdin = unsafePerformPrimIO (
        0 -> new_handle ClosedHandle
        1 -> 
 #ifndef __PARALLEL_HASKELL__
-            makeForeignObj (``stdin''::Addr) (``&freeStdChannel''::Addr) >>= \ fp ->
+            makeForeignObj (``stdin''::Addr) (``&freeStdFile''::Addr) >>= \ fp ->
 	    new_handle (ReadHandle fp Nothing False)
 #else
 	    new_handle (ReadHandle ``stdin'' Nothing False)
@@ -146,7 +148,7 @@ stdout = unsafePerformPrimIO (
        0 -> new_handle ClosedHandle
        1 -> 
 #ifndef __PARALLEL_HASKELL__
-            makeForeignObj (``stdout''::Addr) (``&freeStdChannel''::Addr) >>= \ fp ->
+            makeForeignObj (``stdout''::Addr) (``&freeStdFile''::Addr) >>= \ fp ->
 	    new_handle (WriteHandle fp Nothing False)
 #else
 	    new_handle (WriteHandle ``stdout'' Nothing False)
@@ -165,7 +167,7 @@ stderr = unsafePerformPrimIO (
        0 -> new_handle ClosedHandle
        1 -> 
 #ifndef __PARALLEL_HASKELL__
-            makeForeignObj (``stderr''::Addr) (``&freeStdChannel''::Addr) >>= \ fp ->
+            makeForeignObj (``stderr''::Addr) (``&freeStdFile''::Addr) >>= \ fp ->
             new_handle (WriteHandle fp (Just NoBuffering) False)	
 #else
             new_handle (WriteHandle ``stderr'' (Just NoBuffering) False)