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

Update BackendPassesTest to match my last _sizes change.

Browse Source
This commit is contained in:
Adam Sampson 2008-03-13 10:52:23 +00:00
parent 6df110dce4
commit 3996a1379b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/BackendPassesTest.hs
View File

@ -220,7 +220,7 @@ qcTestDeclareSizes =
-- spectype of foo, spectype of foo_sizes -- spectype of foo, spectype of foo_sizes
testFoo :: TestMonad m r => Int -> (A.SpecType, A.SpecType, State CompState ()) -> m () testFoo :: TestMonad m r => Int -> (A.SpecType, A.SpecType, State CompState ()) -> m ()
testFoo n (fooSpec, fooSizesSpec, st) = test n testFoo n (fooSpec, fooSizesSpec, st) = test n
(strFoo $ strFooSizes term) (strFooSizes $ strFoo term)
(strFoo term) st (checkFooSizes fooSizesSpec) (strFoo term) st (checkFooSizes fooSizesSpec)
where where
strFoo :: Data a => A.Structured a -> A.Structured a strFoo :: Data a => A.Structured a -> A.Structured a