diff options
Diffstat (limited to 'src/CabalHelper')
| -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 | 
