diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-04 11:18:55 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-04 11:18:55 +0000 |
| commit | 4698dfbe7848e87a2e62a776925435a888bc6923 (patch) | |
| tree | 43707a579e6c6a7f81247a88680f038cb5180e4c /src/GF/Devel/Grammar/SourceToGF.hs | |
| parent | 7051331c20d5a9f1eaf5f9f25bca2891f9277370 (diff) | |
some missing cases in SourceToGF
Diffstat (limited to 'src/GF/Devel/Grammar/SourceToGF.hs')
| -rw-r--r-- | src/GF/Devel/Grammar/SourceToGF.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Devel/Grammar/SourceToGF.hs b/src/GF/Devel/Grammar/SourceToGF.hs index cefc1192c..0ad966648 100644 --- a/src/GF/Devel/Grammar/SourceToGF.hs +++ b/src/GF/Devel/Grammar/SourceToGF.hs @@ -404,7 +404,7 @@ transExp x = case x of G.Typed _ t -> G.TTyped t _ -> G.TRaw return $ G.S (G.T annot cases') exp' ----- ECTable binds exp -> liftM2 M.mkCTable (mapM transBind binds) (transExp exp) + ECTable binds exp -> liftM2 M.mkCTable (mapM transBind binds) (transExp exp) EVariants exps -> liftM G.FV $ mapM transExp exps EPre exp alts -> liftM2 (curry G.Alts) (transExp exp) (mapM transAltern alts) @@ -507,8 +507,8 @@ transPatt x = case x of let (lss,ps) = unzip [(ls,p) | PA ls p <- pattasss] ls = map LPIdent $ concat lss liftM G.PR $ liftM2 zip (mapM trLabel ls) (mapM transPatt ps) ----- PTup pcs -> ----- liftM (G.PR . M.tuple2recordPatt) (mapM transPatt [e | PTComp e <- pcs]) + PTup pcs -> + liftM (G.PR . M.tuple2recordPatt) (mapM transPatt [e | PTComp e <- pcs]) PQ id0 id -> liftM3 G.PP (transIdent id0) (transIdent id) (return []) PQC id0 id patts -> liftM3 G.PP (transIdent id0) (transIdent id) (mapM transPatt patts) |