dph-prim-par: use traceEventIO instead of deprecated traceEvent
authorBen Lippmeier <benl@ouroborus.net>
Wed, 8 Feb 2012 02:45:33 +0000 (13:45 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Wed, 8 Feb 2012 02:45:33 +0000 (13:45 +1100)
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Gang.hs

index 3734440..a6bc777 100644 (file)
@@ -25,7 +25,7 @@ import Control.Exception         (assert)
 import Control.Monad
 
 #if TRACE_GANG
-import GHC.Exts                  (traceEvent)
+import Debug.Trace              (traceEventIO)
 import System.Time ( ClockTime(..), getClockTime )
 #endif 
 
@@ -222,7 +222,7 @@ diffTime x y = show (y-x)
 traceGang :: String -> IO ()
 traceGang s
  = do  t <- getGangTime
-       traceEvent $ show t ++ " @ " ++ s
+       traceEventIO $ show t ++ " @ " ++ s
 
 #else
 getGangTime :: IO ()