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

Wrap quotes in an error message

parent 301a718b
......@@ -208,7 +208,7 @@ tcHsDeriv hs_ty
; let (tvs, pred) = splitForAllTys ty
; case getClassPredTys_maybe pred of
Just (cls, tys) -> return (tvs, cls, tys)
Nothing -> failWithTc (ptext (sLit "Illegal deriving item") <+> ppr hs_ty) }
Nothing -> failWithTc (ptext (sLit "Illegal deriving item") <+> quotes (ppr hs_ty)) }
-- Used for 'VECTORISE [SCALAR] instance' declarations
Supports Markdown
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