{-# LANGUAGE CPP #-}
{-# LANGUAGE TypeOperators #-}
module Data.Array.Accelerate.LLVM.Native.Debug (
module Data.Array.Accelerate.Debug,
module Data.Array.Accelerate.LLVM.Native.Debug,
) where
import Data.Array.Accelerate.Debug hiding ( elapsed )
import qualified Data.Array.Accelerate.Debug as Debug
import Text.Printf
{-# INLINEABLE elapsedP #-}
elapsedP :: Double -> Double -> String
elapsedP wallTime cpuTime =
printf "%s (wall), %s (cpu), %.2f x speedup"
(showFFloatSIBase (Just 3) 1000 wallTime "s")
(showFFloatSIBase (Just 3) 1000 cpuTime "s")
(cpuTime / wallTime)
{-# INLINEABLE elapsedS #-}
elapsedS :: Double -> Double -> String
elapsedS = Debug.elapsed