diff options
Diffstat (limited to 'src/GF/Canon/CanonToGrammar.hs')
| -rw-r--r-- | src/GF/Canon/CanonToGrammar.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs index e42c273cb..1a677e1a9 100644 --- a/src/GF/Canon/CanonToGrammar.hs +++ b/src/GF/Canon/CanonToGrammar.hs @@ -29,6 +29,7 @@ canon2sourceModule (i,mi) = do return (a', M.MTConcrete a') M.MTAbstract -> return (i',M.MTAbstract) --- c' not needed M.MTResource -> return (i',M.MTResource) --- c' not needed + M.MTTransfer x y -> return (i',M.MTTransfer x y) --- c' not needed defs <- mapMTree redInfo $ M.jments m return $ M.ModMod $ M.Module mt flags e os defs _ -> Bad $ "cannot decompile module type" @@ -50,6 +51,8 @@ redInfo (c,info) = errIn ("decompiling abstract" +++ show c) $ do return $ G.AbsCat (Yes cont) (Yes (map (uncurry G.Q) fs)) AbsFun typ df -> do return $ G.AbsFun (Yes typ) (Yes df) + AbsTrans t -> do + return $ G.AbsTrans t ResPar par -> liftM (G.ResParam . Yes) $ mapM redParam par |