GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix in the callback for names in the Haskell binding

Browse Source
This commit is contained in:
krasimir
2015-02-18 16:41:13 +00:00
parent 27a12ca9fb
commit 4ed41214e5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -520,7 +520,7 @@ nerc pgf (lang,concr) lin_idx sentence offset =
where
retLit e = --traceShow (name,e,drop end_offset sentence) $
Just (e,0,end_offset)
where end_offset = length sentence-length rest
where end_offset = offset+length name
pn = retLit (mkApp "SymbPN" [mkApp "MkSymb" [mkStr name]])
((lemma,cat),_) = maximumBy (compare `on` snd) (reverse ls)
ls = [((fun,cat),p)