diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2012-08-30 07:41:49 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2012-08-30 07:41:49 +0000 |
| commit | 3f0b8c55eca8206bc85b2450e908fb2134eb22a5 (patch) | |
| tree | 717170a5ff22775f7b0e21a64dfa1ff11f3df1f3 /src | |
| parent | b416f5bbf7a1ac6d549f68424fec3af64ce34725 (diff) | |
the loading of PGF files was broken by the Teyjus patch. Now this is fixed
Diffstat (limited to 'src')
| -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
})
|