another fix for teyjus

2012-08-30 08:09:30 +00:00
parent fe27540c49
commit 37e1ced6cf
2 changed files with 5 additions and 3 deletions
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -38,7 +38,9 @@ instance Binary CId where
  get    = liftM CId get

 instance Binary Abstr where
-  put abs = put (aflags abs, funs abs, cats abs)
+  put abs = put (aflags abs, 
+                 fmap (\(w,x,y,z,_) -> (w,x,y,z)) (funs abs),
+                 fmap (\(x,y,_) -> (x,y)) (cats abs))
  get = do aflags <- get
           funs <- get
           cats <- get