aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2019-08-21 04:17:45 +0200
committerDaniel Gröber (dxld) <dxld@darkboxed.org>2019-09-17 17:48:26 +0200
commit89614978a723b1132abcade54701c6f29e2ba24c (patch)
tree0a1313abf391cd88d1842d802ec5cc740171bf43 /src
parentb67c9dda1b898f3ddfb6ddd710c886bef9085c94 (diff)
Remove redundant timing code for compileHelper
Diffstat (limited to 'src')
-rw-r--r--src/CabalHelper/Compiletime/Compile.hs6
1 files changed, 0 insertions, 6 deletions
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