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

Alter source code of test, now that result type signatures do not bind type variables

parent 9b7a5c9c
......@@ -324,10 +324,12 @@ depthOfConstr p (t::TypeVal a) c
------------------------------------------------------------------------------
shallowTerm :: (forall a. Data a => Maybe a) -> (forall b. Data b => b)
shallowTerm cust :: b
=
maybe gdefault id cust
shallowTerm cust
= result
where
result :: forall b. Data b => b
-- Need a type signature here to bring 'b' into scope
result = maybe gdefault id cust
where
-- The worker, also used for type disambiguation
......
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