Commit 6065bf1c authored by simonmar's avatar simonmar

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

Remove dead panic
parent 22f93053
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment