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

fixing number of interrogatives in English Structural

Browse Source
This commit is contained in:
aarne
2008-05-29 16:16:19 +00:00
parent f116071ce5
commit a65be9ef42
5 changed files with 8 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src-3.0/GF/Compile/CheckGrammar.hs
View File

@@ -336,9 +336,7 @@ computeLType gr t = do
where
comp ty = case ty of
_ | Just _ <- isTypeInts ty -> return ty ---- shouldn't be needed
| ty == typeInt -> return ty ---- shouldn't be needed
| ty == typeFloat -> return ty ---- shouldn't be needed
| ty == typeError -> return ty ---- shouldn't be needed
| isPredefConstant ty -> return ty ---- shouldn't be needed
Q m ident -> checkIn ("module" +++ prt m) $ do
ty' <- checkErr (lookupResDef gr m ident)
@@ -409,14 +407,6 @@ inferLType gr trm = case trm of
,
checkErr (lookupResDef gr m ident) >>= infer
,
{-
do
over <- getOverload gr Nothing trm
case over of
Just trty -> return trty
_ -> prtFail "not overloaded" trm
,
-}
prtFail "cannot infer type of constant" trm
]