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