diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2012-08-30 08:09:30 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2012-08-30 08:09:30 +0000 |
| commit | 545e48e88195506347f3b0e1a8bc527a23482768 (patch) | |
| tree | 09f06b1af72c66be5b61579b697fcc46165abd49 /src/runtime | |
| parent | 3f0b8c55eca8206bc85b2450e908fb2134eb22a5 (diff) | |
another fix for teyjus
Diffstat (limited to 'src/runtime')
| -rw-r--r-- | src/runtime/haskell/PGF/Binary.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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
|