From 63af1381f2cb7d0b69eff88db1d52fe9a62ed5e9 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Mon, 11 Feb 2008 01:16:27 +0000
Subject: [PATCH] Reordered the pass list so that the usage checking happens
 earlier

---
 common/PassList.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/common/PassList.hs b/common/PassList.hs
index b857c11..fb2c3a6 100644
--- a/common/PassList.hs
+++ b/common/PassList.hs
@@ -34,11 +34,9 @@ import Unnest
 commonPasses :: CompState -> [(String, Pass)]
 commonPasses opts =
   [ ("Simplify types", simplifyTypes)
-  , ("Simplify expressions", simplifyExprs)
-  ]
-  ++ (if csUsageChecking opts then [("Usage checks", runPassR usageCheckPass)] else []) ++
-  [    
-    ("Simplify processes", simplifyProcs)
+  ] ++ (if csUsageChecking opts then [("Usage checks", runPassR usageCheckPass)] else []) ++
+  [ ("Simplify expressions", simplifyExprs)
+  , ("Simplify processes", simplifyProcs)
   , ("Flatten nested declarations", unnest)
   , ("Simplify communications", simplifyComms)
   ]