X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FCharSeq.lhs;fp=ghc%2Fcompiler%2Futils%2FCharSeq.lhs;h=d5e7c33de31f752fcb01ee3fd3ae5d1565c3e4f2;hb=1fb1ab5d53a09607e7f6d2450806760688396387;hp=43dfb7f4781163c8c2d3f0b411903a17d445728d;hpb=fa6fb09e2e4e6918eebc79ed187f32c88817c9db;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/CharSeq.lhs b/ghc/compiler/utils/CharSeq.lhs
index 43dfb7f..d5e7c33 100644
--- 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}