Remove unused AST.Expression.Data

avh4 · Oct 23, 2015 · 63dd6c7 · 63dd6c7
1 parent b37c474
commit 63dd6c7
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 2 deletions.
diff --git a/parser/src/AST/Expression.hs b/parser/src/AST/Expression.hs
@@ -43,7 +43,6 @@ data Expr'
     | If [(Expr, Bool, Expr)] Expr
     | Let [Def] Expr
     | Case (Expr,Bool) [(Pattern.Pattern, Expr)]
-    | Data String [Expr]
     | Tuple [Expr] Bool
     | TupleFunction Int
     | Access Expr String

diff --git a/src/Format.hs b/src/Format.hs
@@ -432,7 +432,6 @@ formatExpression inList suffix aexpr =
                       vbox (map formatClause clauses)
                       |> indent (if inList then 2 else 4)
                 ]
-        AST.Expression.Data _ _ -> text "<expression data>"
 
         AST.Expression.Tuple exprs False ->
             hboxlist "(" ", " ")" (formatExpression False empty) exprs