diff options
| -rw-r--r-- | compiler/typecheck/TcGenDeriv.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/typecheck/TcGenDeriv.hs b/compiler/typecheck/TcGenDeriv.hs index c9281088ed..3141311bd5 100644 --- a/compiler/typecheck/TcGenDeriv.hs +++ b/compiler/typecheck/TcGenDeriv.hs @@ -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 |