PGF2 & PGFService: enable callbacks for named entities and chunks in the c-parse & c-translate web requests

This commit is contained in:
hallgren
2015-01-21 10:41:12 +00:00
parent 790738c82b
commit ffe1f74584
2 changed files with 7 additions and 5 deletions

View File

@@ -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]
{-