[commit: packages/dph] master: Update to match new role annotation syntax. (ba767c8)

[git at git.haskell.org]

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

On branch  : master
Link       : http://git.haskell.org/?p=packages/dph.git;a=commit;h=ba767c827570e4d3345e56156e56ce013e86c605

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

commit ba767c827570e4d3345e56156e56ce013e86c605
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Mon Sep 16 22:15:15 2013 -0400

    Update to match new role annotation syntax.


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

ba767c827570e4d3345e56156e56ce013e86c605
 dph-lifted-copy/Data/Array/Parallel/Lifted/TH/Repr.hs |    2 --
 dph-test/framework/DPH/Testsuite/Preproc.hs           |    2 --
 2 files changed, 4 deletions(-)

diff --git a/dph-lifted-copy/Data/Array/Parallel/Lifted/TH/Repr.hs b/dph-lifted-copy/Data/Array/Parallel/Lifted/TH/Repr.hs
index dd33d85..9229723 100644
--- a/dph-lifted-copy/Data/Array/Parallel/Lifted/TH/Repr.hs
+++ b/dph-lifted-copy/Data/Array/Parallel/Lifted/TH/Repr.hs
@@ -14,8 +14,6 @@ import Data.List                                (intercalate)
 tyBndrVar :: TyVarBndr -> Name
 tyBndrVar (PlainTV  n)          = n
 tyBndrVar (KindedTV n _)        = n
-tyBndrVar (RoledTV n _)         = n
-tyBndrVar (KindedRoledTV n _ _) = n
 
 mkAppTs :: Type -> [Type] -> Type
 mkAppTs = foldl AppT
diff --git a/dph-test/framework/DPH/Testsuite/Preproc.hs b/dph-test/framework/DPH/Testsuite/Preproc.hs
index 5d85bdf..2f42ae7 100644
--- a/dph-test/framework/DPH/Testsuite/Preproc.hs
+++ b/dph-test/framework/DPH/Testsuite/Preproc.hs
@@ -121,8 +121,6 @@ names tvs = map name tvs
   where
     name (PlainTV  n  )        = n
     name (KindedTV n _)        = n
-    name (RoledTV n _)         = n
-    name (KindedRoledTV n _ _) = n
 
 -- | Create a list of mkTest expressions out of Inst expressions.
 --