From: sof <unknown>
Date: Mon, 24 Aug 1998 19:20:24 +0000 (+0000)
Subject: [project @ 1998-08-24 19:20:24 by sof]
X-Git-Tag: Approx_2487_patches~289
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=564e31679045707ad801003ab35dedf0e1d480e2;p=ghc-hetmet.git

[project @ 1998-08-24 19:20:24 by sof]
Adjusted some imports; dropped PackedString dependency in favour of CString
---

diff --git a/ghc/lib/misc/BSD.lhs b/ghc/lib/misc/BSD.lhs
index 1113463..7e14df1 100644
--- a/ghc/lib/misc/BSD.lhs
+++ b/ghc/lib/misc/BSD.lhs
@@ -77,9 +77,7 @@ import PrelIOBase ( IOError (..), IOErrorType(..) )
 
 import Foreign
 import Addr
-import PackedString ( cByteArrayToPS, unpackPS, unpackCStringIO )
-  
-import Util  ( unvectorize )
+import CString ( unpackCStringIO, unpackCStringBA, unvectorize )
 import SocketPrim
 
 \end{code}
@@ -373,7 +371,8 @@ getHostName = do
   ba  <- stToIO (unsafeFreezeByteArray ptr)
   if rc == -1 
      then fail (userError "getHostName: unable to determine host name")
-     else return (unpackPS (cByteArrayToPS ba))
+     else do
+       return (unpackCStringBA ba)
 \end{code}
 
 Helper function used by the exported functions that provides a