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

debugging gfcc bug; resulted in some type annotations to work around problems

Browse Source
This commit is contained in:
aarne
2007-11-09 14:02:11 +00:00
parent e66aab0978
commit ad96ff1822
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Grammar/Compute.hs
View File

@@ -179,6 +179,7 @@ computeTermOpt rec gr = comp where
vs <- allParamValues gr ptyp vs <- allParamValues gr ptyp
case lookup v' (zip vs [0 .. length vs - 1]) of case lookup v' (zip vs [0 .. length vs - 1]) of
Just i -> comp g $ ts !! i Just i -> comp g $ ts !! i
----- _ -> prtBad "selection" $ S t' v' -- debug
_ -> return $ S t' v' -- if v' is not canonical _ -> return $ S t' v' -- if v' is not canonical
T (TComp _) cs -> do T (TComp _) cs -> do
@@ -196,7 +197,6 @@ computeTermOpt rec gr = comp where
Alias _ _ d -> comp g (S d v') Alias _ _ d -> comp g (S d v')
S (T i cs) e -> prawitz g i (flip S v') cs e S (T i cs) e -> prawitz g i (flip S v') cs e
_ -> returnC $ S t' v' _ -> returnC $ S t' v'
-- normalize away empty tokens -- normalize away empty tokens