Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f7245ce491552549dfc82ad6cec5123531420873 >--------------------------------------------------------------- commit f7245ce491552549dfc82ad6cec5123531420873 Author: Simon Peyton Jones <[email protected]> Date: Thu Apr 5 11:30:02 2012 +0100 White space only >--------------------------------------------------------------- compiler/typecheck/TcDeriv.lhs | 12 ++++++------ 1 files changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/typecheck/TcDeriv.lhs b/compiler/typecheck/TcDeriv.lhs index 572b2a2..ac498ba 100644 --- a/compiler/typecheck/TcDeriv.lhs +++ b/compiler/typecheck/TcDeriv.lhs @@ -336,13 +336,13 @@ tcDeriving tycl_decls inst_decls deriv_decls ; liftIO (dumpIfSet_dyn dflags Opt_D_dump_deriv "Derived instances" (ddump_deriving inst_info rn_binds newTyCons famInsts)) - ; let all_tycons = map ATyCon (bagToList newTyCons) - ; gbl_env <- tcExtendGlobalEnv all_tycons $ - tcExtendGlobalEnvImplicit (concatMap implicitTyThings all_tycons) $ - tcExtendLocalFamInstEnv (bagToList famInsts) $ - tcExtendLocalInstEnv (map iSpec (bagToList inst_info)) getGblEnv + ; let all_tycons = map ATyCon (bagToList newTyCons) + ; gbl_env <- tcExtendGlobalEnv all_tycons $ + tcExtendGlobalEnvImplicit (concatMap implicitTyThings all_tycons) $ + tcExtendLocalFamInstEnv (bagToList famInsts) $ + tcExtendLocalInstEnv (map iSpec (bagToList inst_info)) getGblEnv - ; return (addTcgDUs gbl_env rn_dus, inst_info, rn_binds) } + ; return (addTcgDUs gbl_env rn_dus, inst_info, rn_binds) } where ddump_deriving :: Bag (InstInfo Name) -> HsValBinds Name -> Bag TyCon -- ^ Empty data constructors _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
