diff options
Diffstat (limited to 'src/GF/Compile/GrammarToCanon.hs')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index 25ec623e8..e0e245163 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -104,7 +104,7 @@ redInfo am (c,info) = errIn ("translating definition of" +++ prt c) $ do AbsTrans t -> returns c' $ C.AbsTrans t - ResParam (Yes ps) -> do + ResParam (Yes (ps,_)) -> do ps' <- mapM redParam ps returns c' $ C.ResPar ps' |