diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-16 11:56:08 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-16 11:56:08 +0000 |
| commit | 8bc8929c59d2bd6f28d5dab9c7a9ca8a1c23609e (patch) | |
| tree | 84244e9cc3b969e86167b309538dfe08d7374630 /src/PGF/Binary.hs | |
| parent | b442cde3bd01fb935c215446097592510cf8e713 (diff) | |
completely phrase based parser and support for pre {} in PMCFG
Diffstat (limited to 'src/PGF/Binary.hs')
| -rw-r--r-- | src/PGF/Binary.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/PGF/Binary.hs b/src/PGF/Binary.hs index ea99a3ed4..b99296db5 100644 --- a/src/PGF/Binary.hs +++ b/src/PGF/Binary.hs @@ -156,14 +156,14 @@ instance Binary FFun where instance Binary FSymbol where
put (FSymCat n l) = putWord8 0 >> put (n,l)
put (FSymLit n l) = putWord8 1 >> put (n,l)
- put (FSymTok (KS s)) = putWord8 2 >> put s
- put (FSymTok (KP d vs)) = putWord8 3 >> put (d,vs)
+ put (FSymKS ts) = putWord8 2 >> put ts
+ put (FSymKP d vs) = putWord8 3 >> put (d,vs)
get = do tag <- getWord8
case tag of
0 -> liftM2 FSymCat get get
1 -> liftM2 FSymLit get get
- 2 -> liftM (FSymTok . KS) get
- 3 -> liftM2 (\d vs -> FSymTok (KP d vs)) get get
+ 2 -> liftM FSymKS get
+ 3 -> liftM2 (\d vs -> FSymKP d vs) get get
_ -> decodingError
instance Binary Production where
|