msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixed typo in GeneratePMCFG.hs. fidFloat -> fidVar

Browse Source
This commit is contained in:
krasimir
2010-10-25 11:48:17 +00:00
parent 7666f8cc59
commit 53306414b6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/GeneratePMCFG.hs
View File

@@ -497,7 +497,7 @@ emptyGrammarEnv gr (m,mo) =
| cat == cString = (index,(fidString,fidString,CRec [(theLinLabel,Identity (CStr 0))])) | cat == cString = (index,(fidString,fidString,CRec [(theLinLabel,Identity (CStr 0))]))
| cat == cInt = (index,(fidInt, fidInt, CRec [(theLinLabel,Identity (CStr 0))])) | cat == cInt = (index,(fidInt, fidInt, CRec [(theLinLabel,Identity (CStr 0))]))
| cat == cFloat = (index,(fidFloat, fidFloat, CRec [(theLinLabel,Identity (CStr 0))])) | cat == cFloat = (index,(fidFloat, fidFloat, CRec [(theLinLabel,Identity (CStr 0))]))
| cat == cVar = (index,(fidFloat, fidFloat, CStr 0)) | cat == cVar = (index,(fidVar, fidVar, CStr 0))
| otherwise = (index+size,(index,index+size-1,schema)) | otherwise = (index+size,(index,index+size-1,schema))
where where
((_,size),schema) = compute (0,1) ctype ((_,size),schema) = compute (0,1) ctype