diff options
| author | krasimir <krasimir@chalmers.se> | 2015-11-18 10:16:55 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-11-18 10:16:55 +0000 |
| commit | fe7397efe4403f94797203e6bf00daa95d749618 (patch) | |
| tree | 235108f9755137fa5261564db643322c25a0b435 /treebanks/susanne/Parser.hs | |
| parent | 9335a2997c5784d36e65d019ce39409a5bde5a95 (diff) | |
some more conversion patterns for Susanne
Diffstat (limited to 'treebanks/susanne/Parser.hs')
| -rw-r--r-- | treebanks/susanne/Parser.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/treebanks/susanne/Parser.hs b/treebanks/susanne/Parser.hs index f34bb3423..c3db1d3a2 100644 --- a/treebanks/susanne/Parser.hs +++ b/treebanks/susanne/Parser.hs @@ -19,6 +19,8 @@ instance MonadPlus P where mzero = P (\pgf cnc ts -> Nothing) mplus f g = P (\pgf cnc ts -> mplus (runP f pgf cnc ts) (runP g pgf cnc ts)) +getConcr = P (\pgf cnc ts -> Just (ts,cnc)) + match convert tag_spec = P (\pgf cnc ts -> case ts of (t@(Phrase tag1 mods1 fn1 _ _):ts) |