minor wibbles to make examples compile
authorAmos Robinson <amos.robinson@gmail.com>
Tue, 26 Nov 2013 07:12:38 +0000 (18:12 +1100)
committerAmos Robinson <amos.robinson@gmail.com>
Tue, 26 Nov 2013 07:12:38 +0000 (18:12 +1100)
dph-event-seer/dph-event-seer.cabal
dph-examples/examples/spectral/ClosestPairs/dph/Vectorised1.hs
dph-examples/examples/spectral/QuickSelect/dph/Vectorised.hs

index a47fc87..73fdedd 100644 (file)
@@ -15,7 +15,6 @@ Synopsis:            Analyse eventlog files for time spent in garbage collection
 Executable dph-event-seer
   Build-depends:
         base                == 4.*,
-        dph-prim-par        == 0.6.*,
         containers          == 0.5.*,
         ghc-events          == 0.4.*,
         pretty              >= 1.1
index cd08897..8480003 100644 (file)
@@ -114,7 +114,7 @@ closeststupid1PA ps = closeststupid (fromPArrayP ps)
 median :: [: Double :] -> Double
 median xs = median' xs (lengthP xs `I.div` 2)
 
-median':: [: Double :] -> Int -> Double 
+median':: [: Double :] -> P.Int -> Double 
 median' xs k =
   let p  = xs !: (lengthP xs `I.div` 2)
       ls = [:x | x <- xs, x D.< p:]
index d08103e..00139a3 100644 (file)
@@ -4,7 +4,7 @@
 module Vectorised (quickselectPA) where
 import Data.Array.Parallel
 import Data.Array.Parallel.Prelude.Double        as D
-import qualified Data.Array.Parallel.Prelude.Int as I
+import Data.Array.Parallel.Prelude.Int           as I
 import qualified Prelude