[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / utils / CharSeq.lhs

diff --git a/ghc/compiler/utils/CharSeq.lhs b/ghc/compiler/utils/CharSeq.lhs
index 43dfb7f..d5e7c33 100644 (file)
--- a/ghc/compiler/utils/CharSeq.lhs
+++ b/ghc/compiler/utils/CharSeq.lhs
@@ -196,7 +196,8 @@ cPutStr handle sq = flat sq
     flat (CCh c)         = hPutChar handle c
     flat (CInt i)        = hPutStr  handle (show i)
     flat (CStr s)        = hPutStr  handle s
-    flat (CPStr s)       = hPutStr  handle (_UNPK_ s)
+    flat (CPStr s)       = hPutFS   handle s
+                            --hPutStr  handle (_UNPK_ s)
 
 #endif {- COMPILING_GHC -}
 \end{code}