[commit: ghc] overlapping-tyfams: Fixing merge conflicts. (f3879c7)

Richard Eisenberg eir at cis.upenn.edu
Fri Jun 21 15:17:28 CEST 2013


Repository : http://darcs.haskell.org/ghc.git/

On branch  : overlapping-tyfams

https://github.com/ghc/ghc/commit/f3879c775e3ef64e82fb7be541843f1a8032c18d

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

commit f3879c775e3ef64e82fb7be541843f1a8032c18d
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Fri Jun 21 08:42:54 2013 +0100

    Fixing merge conflicts.

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

 compiler/deSugar/DsMeta.hs | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs
index 57b35b3..99ae2fa 100644
--- a/compiler/deSugar/DsMeta.hs
+++ b/compiler/deSugar/DsMeta.hs
@@ -376,21 +376,9 @@ repClsInstD (ClsInstDecl { cid_poly_ty = ty, cid_binds = binds
 repTyFamInstD :: TyFamInstDecl Name -> DsM (Core TH.DecQ)
 repTyFamInstD decl@(TyFamInstDecl { tfid_eqn = eqn })
   = do { let tc_name = tyFamInstDeclLName decl
-<<<<<<< HEAD
        ; tc <- lookupLOcc tc_name		-- See note [Binders and occurrences]  
        ; eqn1 <- repTyFamEqn eqn
        ; repTySynInst tc eqn1 }
-||||||| merged common ancestors
-       ; tc <- lookupLOcc tc_name		-- See note [Binders and occurrences]  
-       ; eqns1 <- mapM repTyFamEqn eqns
-       ; eqns2 <- coreList tySynEqnQTyConName eqns1
-       ; repTySynInst tc eqns2 }
-=======
-       ; tc <- lookupLOcc tc_name               -- See note [Binders and occurrences]
-       ; eqns1 <- mapM repTyFamEqn eqns
-       ; eqns2 <- coreList tySynEqnQTyConName eqns1
-       ; repTySynInst tc eqns2 }
->>>>>>> master
 
 repTyFamEqn :: LTyFamInstEqn Name -> DsM (Core TH.TySynEqnQ)
 repTyFamEqn (L loc (TyFamInstEqn { tfie_pats = HsWB { hswb_cts = tys





More information about the ghc-commits mailing list