suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed unnecessary dependencies of a few non-test modules on TestUtil

Browse Source
This commit is contained in:
Neil Brown 2007-09-15 14:33:23 +00:00
parent 1ea59d40bd
commit feedce5a24
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
frontends/RainPasses.hs
View File

@ -19,7 +19,6 @@ with this program. If not, see <http://www.gnu.org/licenses/>.
-- | 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. -- | 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 module RainPasses where
import TestUtil
import qualified AST as A import qualified AST as A
import Pass import Pass
import Data.Generics import Data.Generics
@ -259,7 +258,7 @@ transformEach = everywhereM (mkM transformEach')
loopVarType <- typeOfName loopVar loopVarType <- typeOfName loopVar
A.Specification _ loopIndexName _ <- makeNonceVariable "loopIndex" m' A.Int64 A.VariableName A.Original 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' let s' = A.Spec m'
(A.Specification m' loopVar (A.Specification m' loopVar
(A.Is m' am loopVarType (A.Is m' am loopVarType

1
frontends/RainTypes.hs
View File

@ -18,7 +18,6 @@ with this program. If not, see <http://www.gnu.org/licenses/>.
module RainTypes where module RainTypes where
import TestUtil
import qualified AST as A import qualified AST as A
import Pass import Pass
import Data.Generics import Data.Generics