diff options
Diffstat (limited to 'src/runtime')
| -rw-r--r-- | src/runtime/haskell/PGF/Binary.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs index e96bf0ea0..4f67df42b 100644 --- a/src/runtime/haskell/PGF/Binary.hs +++ b/src/runtime/haskell/PGF/Binary.hs @@ -43,7 +43,8 @@ instance Binary Abstr where funs <- get
cats <- get
return (Abstr{ aflags=aflags
- , funs=funs, cats=cats
+ , funs=fmap (\(w,x,y,z) -> (w,x,y,z,0)) funs
+ , cats=fmap (\(x,y) -> (x,y,0)) cats
, code=BS.empty
})
|