FrozenErrorTests.hs:26:9: error:
• Occurs check: cannot construct the infinite type: a ~ [a]
arising from a use of ‘goo1’
• In the expression: goo1 False undefined
In an equation for ‘test1’: test1 = goo1 False undefined
• Relevant bindings include
test1 :: a (bound at FrozenErrorTests.hs:26:1)
FrozenErrorTests.hs:29:15: error:
• Couldn't match type ‘Int’ with ‘[Int]’
arising from a use of ‘goo1’
• In the first argument of ‘goo2’, namely ‘(goo1 False undefined)’
In the expression: goo2 (goo1 False undefined)
In an equation for ‘test2’: test2 = goo2 (goo1 False undefined)
FrozenErrorTests.hs:30:9: error:
• Couldn't match type ‘Int’ with ‘[Int]’
arising from a use of ‘goo1’
• In the expression: goo1 False (goo2 undefined)
In an equation for ‘test3’: test3 = goo1 False (goo2 undefined)
FrozenErrorTests.hs:45:15: error:
• Couldn't match type ‘T2 c c’ with ‘M (T2 (T2 c c) c)’
arising from a use of ‘goo3’
• In the first argument of ‘goo4’, namely ‘(goo3 False undefined)’
In the expression: goo4 (goo3 False undefined)
In an equation for ‘test4’: test4 = goo4 (goo3 False undefined)
• Relevant bindings include
test4 :: T2 (T2 c c) c (bound at FrozenErrorTests.hs:45:1)
FrozenErrorTests.hs:46:9: error:
• Couldn't match type ‘T2 c c’ with ‘M (T2 (T2 c c) c)’
arising from a use of ‘goo3’
• In the expression: goo3 False (goo4 undefined)
In an equation for ‘test5’: test5 = goo3 False (goo4 undefined)
• Relevant bindings include
test5 :: T2 (T2 c c) c (bound at FrozenErrorTests.hs:46:1)