diff options
| author | krasimir <krasimir@chalmers.se> | 2016-05-11 11:10:22 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2016-05-11 11:10:22 +0000 |
| commit | 86c54232752d14069cbb9b3089474d0299f9a20c (patch) | |
| tree | b502ee4110c41f7ae93c3976e607a3bdf61b49c0 /src/server | |
| parent | 9abc6aaddeb892015015f9f02d5a790701f1c8a2 (diff) | |
the Literals API in Haskell no longer offers the sentence as an argument to the callbacks. It is just as easy to save the sentence in a closure and by doing that we save the repeated round about from C to Haskell strings
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/PGFService.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 08090f309..2d0154e4c 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -173,7 +173,7 @@ cpgfMain qsem command (t,(pgf,pc)) = --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] + cb fs = [(cat,f pgf (from,concr) input)|(cat,f)<-fs] {- -- Caching parse results: parse' start mlimit ((from,concr),input) = |