Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/71fee325bee7657e30a193ee0261d72f5175cb8e >--------------------------------------------------------------- commit 71fee325bee7657e30a193ee0261d72f5175cb8e Author: Ben Lippmeier <[email protected]> Date: Tue Nov 15 18:40:58 2011 +1100 vectoriser: export PDatas data constructors >--------------------------------------------------------------- compiler/vectorise/Vectorise/Type/Env.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/vectorise/Vectorise/Type/Env.hs b/compiler/vectorise/Vectorise/Type/Env.hs index ee0ae25..bef539a 100644 --- a/compiler/vectorise/Vectorise/Type/Env.hs +++ b/compiler/vectorise/Vectorise/Type/Env.hs @@ -209,7 +209,7 @@ vectTypeEnv tycons vectTypeDecls vectClassDecls ; pdata_tcs <- zipWith3M buildPDataTyCon orig_tcs vect_tcs reprs ; pdatas_tcs <- zipWith3M buildPDatasTyCon orig_tcs vect_tcs reprs - ; let inst_tcs = repr_tcs ++ pdata_tcs + ; let inst_tcs = repr_tcs ++ pdata_tcs ++ pdatas_tcs fam_insts = map mkLocalFamInst inst_tcs ; updGEnv $ extendFamEnv fam_insts _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
