diff options
| author | aarne <aarne@chalmers.se> | 2012-01-14 17:06:54 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2012-01-14 17:06:54 +0000 |
| commit | 85d777e068cbcb822f31b496f00bd86925ad6ee5 (patch) | |
| tree | 6a190a10511cee507a2493df7483680dadfdd038 /src | |
| parent | 0cda1b3a9a4606d69bd79a953cbe339eb150f8ff (diff) | |
sorted the list of funs and cats in GrammatToPGF to get the predef categories in proper place and get gr, ai, gt work properly
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Compile/GrammarToPGF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs index 167f7a489..c30afb0ee 100644 --- a/src/compiler/GF/Compile/GrammarToPGF.hs +++ b/src/compiler/GF/Compile/GrammarToPGF.hs @@ -52,10 +52,10 @@ mkCanon2pgf opts gr am = do flags = Map.fromList [(mkCId f,C.LStr x) | (f,x) <- optionsPGF aflags] - funs = Map.fromAscList [(i2i f, (mkType [] ty, mkArrity ma, mkDef pty, 0)) | + funs = Map.fromList [(i2i f, (mkType [] ty, mkArrity ma, mkDef pty, 0)) | ((m,f),AbsFun (Just (L _ ty)) ma pty _) <- adefs] - cats = Map.fromAscList [(i2i c, (snd (mkContext [] cont),catfuns c)) | + cats = Map.fromList [(i2i c, (snd (mkContext [] cont),catfuns c)) | ((m,c),AbsCat (Just (L _ cont))) <- adefs] catfuns cat = |