msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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 e3a87c657b
commit a97dee067a
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 where
retLit e = --traceShow (name,e,drop end_offset sentence) $ retLit e = --traceShow (name,e,drop end_offset sentence) $
Just (e,0,end_offset) 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]]) pn = retLit (mkApp "SymbPN" [mkApp "MkSymb" [mkStr name]])
((lemma,cat),_) = maximumBy (compare `on` snd) (reverse ls) ((lemma,cat),_) = maximumBy (compare `on` snd) (reverse ls)
ls = [((fun,cat),p) ls = [((fun,cat),p)