Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f75f240bb266ad15935eb360548cf6b987b4953a >--------------------------------------------------------------- commit f75f240bb266ad15935eb360548cf6b987b4953a Author: Manuel M T Chakravarty <[email protected]> Date: Wed Jun 27 20:39:09 2012 +1000 Fix PA dfun construction with silent superclass args >--------------------------------------------------------------- compiler/vectorise/Vectorise/Generic/PADict.hs | 2 +- compiler/vectorise/Vectorise/Generic/PAMethods.hs | 11 +---------- 2 files changed, 2 insertions(+), 11 deletions(-) diff --git a/compiler/vectorise/Vectorise/Generic/PADict.hs b/compiler/vectorise/Vectorise/Generic/PADict.hs index 6b7145d..20aab59 100644 --- a/compiler/vectorise/Vectorise/Generic/PADict.hs +++ b/compiler/vectorise/Vectorise/Generic/PADict.hs @@ -27,7 +27,7 @@ import FastString -- The PA dictionary holds fns that convert values to and from their vectorised representations. -- -- @Recall the definition: --- class class PR (PRepr a) => PA a where +-- class PR (PRepr a) => PA a where -- toPRepr :: a -> PRepr a -- fromPRepr :: PRepr a -> a -- toArrPRepr :: PData a -> PData (PRepr a) diff --git a/compiler/vectorise/Vectorise/Generic/PAMethods.hs b/compiler/vectorise/Vectorise/Generic/PAMethods.hs index 7779329..61c07cd 100644 --- a/compiler/vectorise/Vectorise/Generic/PAMethods.hs +++ b/compiler/vectorise/Vectorise/Generic/PAMethods.hs @@ -68,8 +68,7 @@ type PAInstanceBuilder buildPAScAndMethods :: VM [(String, PAInstanceBuilder)] buildPAScAndMethods - = return [ ("PR", buildPRDict) - , ("toPRepr", buildToPRepr) + = return [ ("toPRepr", buildToPRepr) , ("fromPRepr", buildFromPRepr) , ("toArrPRepr", buildToArrPRepr) , ("fromArrPRepr", buildFromArrPRepr) @@ -77,14 +76,6 @@ buildPAScAndMethods , ("fromArrPReprs", buildFromArrPReprs)] -buildPRDict :: PAInstanceBuilder -buildPRDict vect_tc prepr_ax _ _ _ - = prDictOfPReprInstTyCon inst_ty prepr_ax arg_tys - where - arg_tys = mkTyVarTys (tyConTyVars vect_tc) - inst_ty = mkTyConApp vect_tc arg_tys - - -- buildToPRepr --------------------------------------------------------------- -- | Build the 'toRepr' method of the PA class. buildToPRepr :: PAInstanceBuilder _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
