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

Added a few types in BackendPassesTest to remove a monomorphism restriction warning

Browse Source
This commit is contained in:
Neil Brown 2008-03-05 21:04:42 +00:00
parent 1fef1e64ed
commit 6c629b33f7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/BackendPassesTest.hs
View File

@ -189,7 +189,9 @@ qcTestDeclareSizes =
(strFoo $ strFooSizes term) (strFoo $ strFooSizes term)
(strFoo term) st (checkFooSizes fooSizesSpec) (strFoo term) st (checkFooSizes fooSizesSpec)
where where
strFoo :: Data a => A.Structured a -> A.Structured a
strFoo = A.Spec emptyMeta (A.Specification emptyMeta (simpleName "foo") fooSpec) strFoo = A.Spec emptyMeta (A.Specification emptyMeta (simpleName "foo") fooSpec)
strFooSizes :: Data a => A.Structured a -> A.Structured a
strFooSizes = A.Spec emptyMeta (A.Specification emptyMeta (simpleName "foo_sizes") fooSizesSpec) strFooSizes = A.Spec emptyMeta (A.Specification emptyMeta (simpleName "foo_sizes") fooSizesSpec)
isChanArrFoo :: Int -> (A.SpecType, A.SpecType, State CompState ()) isChanArrFoo :: Int -> (A.SpecType, A.SpecType, State CompState ())