diff options
| author | hallgren <hallgren@chalmers.se> | 2015-01-21 10:41:12 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-01-21 10:41:12 +0000 |
| commit | ffe1f7458444e5b3df738877dfec812ff827d930 (patch) | |
| tree | 60dedbe1668265b65153663596aacc643090e4d5 /src/server | |
| parent | 790738c82b88ace2bba8f442adb8ba0c30ae2c27 (diff) | |
PGF2 & PGFService: enable callbacks for named entities and chunks in the c-parse & c-translate web requests
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/PGFService.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index d610df45d..b2fd4fc89 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -155,8 +155,8 @@ cpgfMain command (t,(pgf,pc)) = return $ maybe id take mlimit . drop start # cparse where - cparse = C.parse concr cat input - --cparse = C.parseWithHeuristics concr cat input (-1) callbacks + --cparse = C.parse concr cat input + cparse = C.parseWithHeuristics concr cat input (-1) callbacks callbacks = maybe [] cb $ lookup (C.abstractName pgf) C.literalCallbacks cb fs = [(cat,f pgf (from,concr))|(cat,f)<-fs] {- |