Adjusted some imports; dropped PackedString dependency in favour of CString
import Foreign
import Addr
import Foreign
import Addr
-import PackedString ( cByteArrayToPS, unpackPS, unpackCStringIO )
-
-import Util ( unvectorize )
+import CString ( unpackCStringIO, unpackCStringBA, unvectorize )
import SocketPrim
\end{code}
import SocketPrim
\end{code}
ba <- stToIO (unsafeFreezeByteArray ptr)
if rc == -1
then fail (userError "getHostName: unable to determine host name")
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
\end{code}
Helper function used by the exported functions that provides a