Commit 7edaba26 authored by's avatar
Browse files

Warning police

parent 1c9f77c4
......@@ -381,6 +381,8 @@ deriveTyData (deriv_pred, L loc decl@(TyData { tcdLName = L _ tycon_name,
-- The "deriv_pred" is a LHsType to take account of the fact that for
-- newtype deriving we allow deriving (forall a. C [a]).
; mkEqnHelp DerivOrigin (tvs++deriv_tvs) cls cls_tys tc_app } }
deriveTyData (deriv_pred, other_decl)
= panic "derivTyData" -- Caller ensures that only TyData can happen
mkEqnHelp orig tvs cls cls_tys tc_app
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