From 6c629b33f7ef895c8ab622e64c1c220dbdab52e1 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 5 Mar 2008 21:04:42 +0000 Subject: [PATCH] Added a few types in BackendPassesTest to remove a monomorphism restriction warning --- backends/BackendPassesTest.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/backends/BackendPassesTest.hs b/backends/BackendPassesTest.hs index 6184856..17867da 100644 --- a/backends/BackendPassesTest.hs +++ b/backends/BackendPassesTest.hs @@ -189,7 +189,9 @@ qcTestDeclareSizes = (strFoo $ strFooSizes term) (strFoo term) st (checkFooSizes fooSizesSpec) where + strFoo :: Data a => A.Structured a -> A.Structured a 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) isChanArrFoo :: Int -> (A.SpecType, A.SpecType, State CompState ())