Commit c13ab31d authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Accept output

parent 0d3d7bda
T3330a.hs:17:34: T3330a.hs:17:34:
Couldn't match type `s' with `(->) (s1 ix1 -> ix)' Occurs check: cannot construct the infinite type:
`s' is a rigid type variable bound by s = (->) (s ix -> ix)
the type signature for `children' at T3330a.hs:16:13 Expected type: r ix -> Writer [AnyF s1] (r ix)
Actual type: ix2
In the first argument of `hmapM', namely `p' In the first argument of `hmapM', namely `p'
In the first argument of `execWriter', namely `(hmapM p collect x)' In the first argument of `execWriter', namely `(hmapM p collect x)'
In the expression: execWriter (hmapM p collect x) In the expression: execWriter (hmapM p collect x)
T3330a.hs:17:44: T3330a.hs:17:44:
Couldn't match type `ix1' with `r ix -> Writer [AnyF s] (r ix)' Couldn't match type `ix2' with `r ix1 -> Writer [AnyF s] (r ix1)'
`ix1' is a rigid type variable bound by `ix2' is a rigid type variable bound by
the type signature for `children' at T3330a.hs:16:15 the type signature for `children' at T3330a.hs:16:15
Expected type: PF s1 r (r ix1 -> Writer [AnyF s] (r ix1))
Actual type: PF s1 r ix2
In the third argument of `hmapM', namely `x' In the third argument of `hmapM', namely `x'
In the first argument of `execWriter', namely `(hmapM p collect x)' In the first argument of `execWriter', namely `(hmapM p collect x)'
In the expression: execWriter (hmapM p collect x) In the expression: execWriter (hmapM p collect x)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment