GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-07-08 22:52:46 -06:00
Code Issues Packages Projects Releases Wiki Activity

small refactoring in GF.Compile.CheckGrammar

Browse Source
This commit is contained in:
krasimir
2009-10-25 15:20:44 +00:00
parent 98cf0ea180
commit 038b2c9f2d
4 changed files with 80 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/Grammar/Lookup.hs
+3 -3
View File
@@ -90,8 +90,8 @@ lookupResDefKind gr m c
CncCat (Just ty) _ _ -> liftM (flip (,) 1) $ lock c ty
CncCat _ _ _ -> liftM (flip (,) 1) $ lock c defLinType
CncFun (Just (cat,_)) (Just tr) _ -> liftM (flip (,) 1) $ unlock cat tr
CncFun _ (Just tr) _ -> liftM (flip (,) 1) (return tr) ---- $ unlock c tr
CncFun (Just (cat,_,_)) (Just tr) _ -> liftM (flip (,) 1) $ unlock cat tr
CncFun _ (Just tr) _ -> liftM (flip (,) 1) (return tr) ---- $ unlock c tr
AnyInd _ n -> look False n c
ResParam _ -> return (QC m c,2)
@@ -109,7 +109,7 @@ lookupResType gr m c = do
-- used in reused concrete
CncCat _ _ _ -> return typeType
CncFun (Just (cat,(cont@(_:_),val))) _ _ -> do
CncFun (Just (cat,cont@(_:_),val)) _ _ -> do
val' <- lock cat val
return $ mkProd cont val' []
CncFun _ _ _ -> lookFunType m m c