diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-21 04:17:45 +0200 |
|---|---|---|
| committer | Daniel Gröber (dxld) <dxld@darkboxed.org> | 2019-09-17 17:48:26 +0200 |
| commit | 89614978a723b1132abcade54701c6f29e2ba24c (patch) | |
| tree | 0a1313abf391cd88d1842d802ec5cc740171bf43 | |
| parent | b67c9dda1b898f3ddfb6ddd710c886bef9085c94 (diff) | |
Remove redundant timing code for compileHelper
| -rw-r--r-- | src/CabalHelper/Compiletime/Compile.hs | 6 |
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 |