Reorganise the way the lifted reference implementation works
[packages/dph.git] / dph-base / Data / Array / Parallel / Pretty.hs
index aa54056..a3934b7 100644 (file)
@@ -6,6 +6,8 @@ module Data.Array.Parallel.Pretty
         , PprVirtual (..))
 where
 import Text.PrettyPrint
+import qualified Data.Vector            as V
+import Data.Vector                      (Vector)
 
 
 -- | Pretty print physical structure of data.
@@ -45,3 +47,11 @@ instance (PprPhysical a, PprPhysical b)
         , nest 4 $ pprp x
         , nest 4 $ pprp y]
 
+instance PprPhysical a
+        => PprPhysical (Vector a) where
+ pprp vec
+        = brackets 
+        $ hcat
+        $ punctuate (text ", ") 
+        $ V.toList $ V.map pprp vec
+