Fixed the pass order in the Main module; the rain passes must be performed before the common passes, not afterwards

This commit is contained in:
Neil Brown 2007-08-28 15:28:02 +00:00
parent 99780d497b
commit c09da951f0

View File

@ -159,10 +159,10 @@ compile fn
do progress "Passes:" do progress "Passes:"
let passes let passes
= concat [ commonPasses = concat [ if csFrontend optsPS == FrontendRain
, if csFrontend optsPS == FrontendRain
then rainPasses then rainPasses
else [] else []
, commonPasses
, if csBackend optsPS == BackendC , if csBackend optsPS == BackendC
then genCPasses then genCPasses
else [] else []