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

Fix oversight in comverting tuples from TH to HsSyn (Trac #8507)

parent 384398b3
......@@ -912,7 +912,7 @@ cvtTypeKind ty_str ty
| length tys' == n -- Saturated
-> if n==1 then return (head tys') -- Singleton tuples treated
-- like nothing (ie just parens)
else returnL (HsTupleTy HsBoxedTuple tys')
else returnL (HsTupleTy HsBoxedOrConstraintTuple tys')
| n == 1
-> failWith (ptext (sLit ("Illegal 1-tuple " ++ ty_str ++ " constructor")))
| otherwise
......
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