remove the old parsing code and the -erasing=on flag

This commit is contained in:
krasimir
2009-12-14 10:54:22 +00:00
parent faa638d6fc
commit c036459214
15 changed files with 41 additions and 1473 deletions

View File

@@ -159,8 +159,8 @@ instance Binary BindType where
_ -> decodingError
instance Binary FFun where
put (FFun fun prof lins) = put (fun,prof,lins)
get = liftM3 FFun get get get
put (FFun fun lins) = put (fun,lins)
get = liftM2 FFun get get
instance Binary FSymbol where
put (FSymCat n l) = putWord8 0 >> put (n,l)