From 0ed18c933f8eac32b9037640e7c773070adc4af5 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sun, 23 Mar 2008 11:49:42 +0000 Subject: [PATCH] Fixed pullUp to not pull up list expressions This patch looks like I removed the wrong line above, but it was identical to the line I actually removed, so the patch is fine, it just looks odd. --- transformations/SimplifyExprs.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/transformations/SimplifyExprs.hs b/transformations/SimplifyExprs.hs index 08ca703..e60ba32 100644 --- a/transformations/SimplifyExprs.hs +++ b/transformations/SimplifyExprs.hs @@ -347,10 +347,6 @@ pullUp pullUpArraysInsideRecords A.ExprVariable _ (A.DirectedVariable _ _ _) -> return e' --TODO work out whether to pull up DerefVariable _ -> pull t e' - A.List _ -> - case e' of - A.ExprVariable _ _ -> return e' - _ -> pull t e' _ -> return e' where pull :: A.Type -> A.Expression -> PassM A.Expression