From 89614978a723b1132abcade54701c6f29e2ba24c Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Wed, 21 Aug 2019 04:17:45 +0200
Subject: Remove redundant timing code for compileHelper

---
 src/CabalHelper/Compiletime/Compile.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'src/CabalHelper/Compiletime/Compile.hs')

diff --git a/src/CabalHelper/Compiletime/Compile.hs b/src/CabalHelper/Compiletime/Compile.hs
index c2d2906..1cecb15 100644
--- a/src/CabalHelper/Compiletime/Compile.hs
+++ b/src/CabalHelper/Compiletime/Compile.hs
@@ -115,7 +115,6 @@ compileHelper'
     => CompHelperEnv' UnpackedCabalVersion
     -> IO (Either ExitCode FilePath)
 compileHelper' CompHelperEnv {..} = do
-  t0 <- Clock.getTime Clock.Monotonic
   ghcVer <- ghcVersion
   Just (prepare, comp) <- case cheCabalVer of
     cabalVer@CabalHEAD {} -> runMaybeT $ msum  $ map (\f -> f ghcVer cabalVer)
@@ -146,11 +145,6 @@ compileHelper' CompHelperEnv {..} = do
     else do
       vLog $ "helper exe does not exist, compiling "++compExePath
       prepare >> compile cp comp
-
-  t1 <- Clock.getTime Clock.Monotonic
-  let dt = (/10e9) $ fromInteger $ Clock.toNanoSecs $ Clock.diffTimeSpec t0 t1
-      dt :: Float
-  vLog $ printf "compileHelper took %.5fs" dt
   return rv
 
 
-- 
cgit v1.2.3