[commit: ghc] master: Comments only (36f2ad5)

git at git.haskell.org git at git.haskell.org
Sun Feb 15 20:21:54 UTC 2015


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/36f2ad5db052bd3bf90c0058c030997c408f2a0d/ghc

>---------------------------------------------------------------

commit 36f2ad5db052bd3bf90c0058c030997c408f2a0d
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Sun Feb 15 20:14:54 2015 +0000

    Comments only


>---------------------------------------------------------------

36f2ad5db052bd3bf90c0058c030997c408f2a0d
 compiler/main/HscTypes.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/main/HscTypes.hs b/compiler/main/HscTypes.hs
index 1965afa..067e9a9 100644
--- a/compiler/main/HscTypes.hs
+++ b/compiler/main/HscTypes.hs
@@ -1410,7 +1410,8 @@ extendInteractiveContext ictxt ids tcs new_cls_insts new_fam_insts defaults new_
                             -- a new mod_index (Trac #9426)
           , ic_tythings   = new_tythings ++ old_tythings
           , ic_rn_gbl_env = ic_rn_gbl_env ictxt `icExtendGblRdrEnv` new_tythings
-          , ic_instances  = (new_cls_insts ++ old_cls_insts, new_fam_insts ++ old_fam_insts)
+          , ic_instances  = ( new_cls_insts ++ old_cls_insts
+                            , new_fam_insts ++ old_fam_insts )
           , ic_default    = defaults }
   where
     new_tythings = map AnId ids ++ map ATyCon tcs ++ map (AConLike . PatSynCon) new_patsyns



More information about the ghc-commits mailing list