diff options
Diffstat (limited to 'src/CabalHelper/Compiletime/Compile.hs')
| -rw-r--r-- | src/CabalHelper/Compiletime/Compile.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/CabalHelper/Compiletime/Compile.hs b/src/CabalHelper/Compiletime/Compile.hs index 78c052e..97adac2 100644 --- a/src/CabalHelper/Compiletime/Compile.hs +++ b/src/CabalHelper/Compiletime/Compile.hs @@ -39,6 +39,7 @@ import Data.Maybe import Data.String import Data.Version import Text.Printf +import qualified System.Clock as Clock import System.Directory import System.FilePath import System.Exit @@ -114,6 +115,7 @@ 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 {} -> do @@ -143,6 +145,10 @@ compileHelper' CompHelperEnv {..} = 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 |