Permalink
Browse files

More cleanup.

  • Loading branch information...
tomlokhorst committed Aug 17, 2010
1 parent 63ce8d6 commit 89dd02e7a668cc828b777dcc7d1d01da5e8e04f5
Showing with 0 additions and 18 deletions.
  1. +0 −8 EHC/src/ehc/Ty.cag
  2. +0 −10 EHC/src/ehc/TyCore.cag
View
@@ -1031,14 +1031,6 @@ tyProdArgs = tyAppArgs
tyLHdAndTl = hdAndTl' Ty_Any
%%]
-%%[(4 hmtyinfer) hs
-tyMbAnn :: Ty -> Maybe TyAnn
-tyMbAnn t = case t of {Ty_Ann ann _ -> Just ann ; _ -> Nothing}
-
-tyMbAnnTy :: Ty -> Maybe Ty
-tyMbAnnTy t = case t of {Ty_Ann _ ty -> Just ty ; _ -> Nothing}
-%%]
-
%%[(4 hmtyinfer || hmtyast).unMkTy.tyConNm hs export(tyMbCon)
tyMbCon :: Ty -> Maybe HsName
tyMbCon t = case tyUnAnn t of {Ty_Con nm -> Just nm ; _ -> Nothing}
View
@@ -328,16 +328,6 @@ force (Expr_Delay e) = e
force e = Expr_Force e
%%]
--- %%[(8 codegen) hs export(mkExprSeq, unExprSeq)
--- mkExprSeq :: Expr -> Expr
--- mkExprSeq e@(Expr_Seq [ExprSeq1_L0Val _ _]) = e
--- mkExprSeq e = Expr_Seq [ExprSeq1_L0Val e Nothing]
---
--- unExprSeq :: Expr -> Expr
--- unExprSeq (Expr_Seq [ExprSeq1_L0Val e _]) = e
--- unExprSeq e = e
--- %%]
-
%%[(8 codegen) hs export(seqToList, exprSeq1ToExpr)
seqToList :: Expr -> [Expr]
seqToList (Expr_Seq es) = map exprSeq1ToExpr es

0 comments on commit 89dd02e

Please sign in to comment.