Commit 9e46167f authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Remove unused variable binding

parent 9218ea60
......@@ -1538,7 +1538,7 @@ reifyClass cls
; let dec = TH.ClassD cxt (reifyName cls) tvs' fds' (assocTys ++ ops)
; return (TH.ClassI dec insts) }
where
(tvs, fds, theta, _, ats, op_stuff) = classExtraBigSig cls
(_, fds, theta, _, ats, op_stuff) = classExtraBigSig cls
fds' = map reifyFunDep fds
reify_op (op, def_meth)
= do { ty <- reifyType (idType op)
......
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