Fix a type in the nestedReduction test case (#1339)

This commit is contained in:
Simon Jakobi 2019-09-26 18:43:36 +02:00 committed by mergify[bot]
parent 72bf46b600
commit 87f352d66e

View File

@ -86,7 +86,7 @@ nestedReduction :: TestTree
nestedReduction = Tasty.HUnit.testCase "doubleReduction" $ do
minType <- Context.insert "min" <$> Test.Util.code "Natural → Natural → Natural"
fiveorlessType <- Context.insert "fiveorless" <$> Test.Util.code "Natural → Natural"
wurbleType <- Context.insert "wurble" <$> Test.Util.code "Natural → Integer"
wurbleType <- Context.insert "wurble" <$> Test.Util.code "Natural → Natural"
let tyCtx = minType . fiveorlessType . wurbleType $ Context.empty