From 545e48e88195506347f3b0e1a8bc527a23482768 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 30 Aug 2012 08:09:30 +0000
Subject: another fix for teyjus

---
 src/runtime/haskell/PGF/Binary.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/runtime')

diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index 4f67df42b..0d743c1f4 100644
--- 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
-- 
cgit v1.2.3