From c09da951f0a36c9d1f3f13bbe542baf42bf80b43 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Tue, 28 Aug 2007 15:28:02 +0000
Subject: [PATCH] Fixed the pass order in the Main module; the rain passes must
 be performed before the common passes, not afterwards

---
 Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index 737e2ef..7a8719a 100644
--- a/Main.hs
+++ b/Main.hs
@@ -159,10 +159,10 @@ compile fn
               do progress "Passes:"
 
                  let passes
-                       = concat [ commonPasses
-                                , if csFrontend optsPS == FrontendRain
+                       = concat [ if csFrontend optsPS == FrontendRain
                                     then rainPasses
                                     else []
+                                , commonPasses
                                 , if csBackend optsPS == BackendC
                                     then genCPasses
                                     else []