diff options
Diffstat (limited to 'testsuite/tests/callarity/unittest')
| -rw-r--r-- | testsuite/tests/callarity/unittest/CallArity1.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testsuite/tests/callarity/unittest/CallArity1.hs b/testsuite/tests/callarity/unittest/CallArity1.hs index 1100ff6a8f..00583d0209 100644 --- a/testsuite/tests/callarity/unittest/CallArity1.hs +++ b/testsuite/tests/callarity/unittest/CallArity1.hs @@ -27,16 +27,16 @@ import FastString go, go2, x, d, n, y, z, scrutf, scruta :: Id [go, go2, x,d, n, y, z, scrutf, scruta, f] = mkTestIds (words "go go2 x d n y z scrutf scruta f") - [ mkFunTys [intTy, intTy] intTy - , mkFunTys [intTy, intTy] intTy + [ mkVisFunTys [intTy, intTy] intTy + , mkVisFunTys [intTy, intTy] intTy , intTy - , mkFunTys [intTy] intTy - , mkFunTys [intTy] intTy + , mkVisFunTys [intTy] intTy + , mkVisFunTys [intTy] intTy , intTy , intTy - , mkFunTys [boolTy] boolTy + , mkVisFunTys [boolTy] boolTy , boolTy - , mkFunTys [intTy, intTy] intTy -- protoypical external function + , mkVisFunTys [intTy, intTy] intTy -- protoypical external function ] exprs :: [(String, CoreExpr)] |