Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/LowB/CString.hs
module CString(PackedString,toCString,fromCString) where import NHC.PackedString(PackedString,unpackPS,packString) toCString str = packString (str ++ ['\0']) fromCString str = init (unpackPS str)
