Commit 50947195 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments only

parent 5f675e5b
......@@ -102,7 +102,9 @@ data DerivStuff -- Please add this auxiliary stuff
-}
genDerivedBinds :: DynFlags -> (Name -> Fixity) -> Class -> SrcSpan -> TyCon
-> (LHsBinds RdrName, BagDerivStuff)
-> ( LHsBinds RdrName -- The method bindings of the instance declaration
, BagDerivStuff) -- Specifies extra top-level declarations needed
-- to support the instance declaration
genDerivedBinds dflags fix_env clas loc tycon
| Just gen_fn <- assocMaybe gen_list (getUnique clas)
= gen_fn loc tycon
......
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