From c036459214852ca01868f5da81408f49b22a49e9 Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 14 Dec 2009 10:54:22 +0000 Subject: remove the old parsing code and the -erasing=on flag --- src/runtime/haskell/PGF/Binary.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/runtime/haskell/PGF/Binary.hs') diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs index e4ed98424..7d5db73af 100644 --- 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) -- cgit v1.2.3