diff options
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 = |