[project @ 2006-01-18 10:59:54 by simonmar]

[ghc-hetmet.git] / ghc / compiler / utils / BufWrite.hs

diff --git a/ghc/compiler/utils/BufWrite.hs b/ghc/compiler/utils/BufWrite.hs
index b15089e..a03db3d 100644 (file)
--- a/ghc/compiler/utils/BufWrite.hs
+++ b/ghc/compiler/utils/BufWrite.hs
@@ -94,7 +94,6 @@ bPutFS b@(BufHandle buf r hdl) fs@(FastString _ len _ fp _) =
        else do
                copyBytes (buf `plusPtr` i) ptr len
                writeFastMutInt r (i+len)
-bPutFS _ _ = panic "bPutFS"
 
 bPutLitString :: BufHandle -> Addr# -> Int# -> IO ()
 bPutLitString b@(BufHandle buf r hdl) a# len# = do