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

2009-12-14 10:54:22 +00:00
parent 15ddc283d4
commit 76debee2c1
16 changed files with 42 additions and 1474 deletions
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -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)