From: simonmar <unknown>
Date: Wed, 18 Jan 2006 10:59:54 +0000 (+0000)
Subject: [project @ 2006-01-18 10:59:54 by simonmar]
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6065bf1c8092705992910c65b24c909f3313a6cf

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

diff --git a/ghc/compiler/utils/BufWrite.hs b/ghc/compiler/utils/BufWrite.hs
index b15089e..a03db3d 100644
--- 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