[commit: ghc] master: Fix PA dfun construction with silent superclass args (f75f240)

[Manuel Chakravarty]

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 <chak at cse.unsw.edu.au>
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