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:"
let passes
= concat [ commonPasses
, if csFrontend optsPS == FrontendRain
= concat [ if csFrontend optsPS == FrontendRain
then rainPasses
else []
, commonPasses
, if csBackend optsPS == BackendC
then genCPasses
else []