From feedce5a24834f7af48bdc160005e48009ad7b71 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sat, 15 Sep 2007 14:33:23 +0000 Subject: [PATCH] Removed unnecessary dependencies of a few non-test modules on TestUtil --- frontends/RainPasses.hs | 3 +-- frontends/RainTypes.hs | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/frontends/RainPasses.hs b/frontends/RainPasses.hs index 45d08d5..b184bd2 100644 --- a/frontends/RainPasses.hs +++ b/frontends/RainPasses.hs @@ -19,7 +19,6 @@ with this program. If not, see . -- | A module containing all the misc Rain-specific passes that must be run on the parsed Rain AST before it can be fed into the shared passes. module RainPasses where -import TestUtil import qualified AST as A import Pass import Data.Generics @@ -259,7 +258,7 @@ transformEach = everywhereM (mkM transformEach') loopVarType <- typeOfName loopVar A.Specification _ loopIndexName _ <- makeNonceVariable "loopIndex" m' A.Int64 A.VariableName A.Original - let newRep = A.For m' loopIndexName (intLiteral 0) (A.SizeVariable m' var) + let newRep = A.For m' loopIndexName (makeConstant m' 0) (A.SizeVariable m' var) let s' = A.Spec m' (A.Specification m' loopVar (A.Is m' am loopVarType diff --git a/frontends/RainTypes.hs b/frontends/RainTypes.hs index b8cf98b..f1dd829 100644 --- a/frontends/RainTypes.hs +++ b/frontends/RainTypes.hs @@ -18,7 +18,6 @@ with this program. If not, see . module RainTypes where -import TestUtil import qualified AST as A import Pass import Data.Generics