From 6065bf1c8092705992910c65b24c909f3313a6cf Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 18 Jan 2006 10:59:54 +0000 Subject: [project @ 2006-01-18 10:59:54 by simonmar] Remove dead panic --- ghc/compiler/utils/BufWrite.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'ghc/compiler/utils') diff --git a/ghc/compiler/utils/BufWrite.hs b/ghc/compiler/utils/BufWrite.hs index b15089ead3..a03db3d084 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 -- cgit v1.2.1