projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[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