diff options
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) |