diff options
| author | krasimir <krasimir@chalmers.se> | 2015-05-19 07:26:56 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-05-19 07:26:56 +0000 |
| commit | 616a24cba4fe018adfc2c071eb16b542ae08ec86 (patch) | |
| tree | 561023fb0d6b34f2d3c2758a4dc6562f14a6b0f6 /src/runtime/haskell-bind | |
| parent | 1edd58fff8d51d5725dbf79df0213cd8e6549e8c (diff) | |
the NERC in C is now fully up-to-date with the other NERCs. In addition the NERC in Haskell and Java now refuses to recognize names that match words in the lexicon. The latest is useful for German
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 2ad5b8b4e..77de6d857 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -577,11 +577,9 @@ nerc pgf (lang,concr) lin_idx sentence offset = "PN" -> retLit (mkApp lemma []) "WeekDay" -> retLit (mkApp "weekdayPN" [mkApp lemma []]) "Month" -> retLit (mkApp "monthPN" [mkApp lemma []]) - "Language" -> Nothing - _ -> pn + _ -> Nothing where - retLit e = --traceShow (name,e,drop end_offset sentence) $ - Just (e,0,end_offset) + retLit e = Just (e,0,end_offset) where end_offset = offset+length name pn = retLit (mkApp "SymbPN" [mkApp "MkSymb" [mkStr name]]) ((lemma,cat),_) = maximumBy (compare `on` snd) (reverse ls) |