diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-21 03:45:01 +0200 |
|---|---|---|
| committer | Daniel Gröber (dxld) <dxld@darkboxed.org> | 2019-09-17 17:48:26 +0200 |
| commit | 761952c1afba15b9fdc56e6415beab23f3135945 (patch) | |
| tree | 143b52d1630c4a19cc629d0ae803bd86d0fde5ad | |
| parent | 89614978a723b1132abcade54701c6f29e2ba24c (diff) | |
Fix division factor for helper compilation timer
Turns out I'm an idiot and 10eX is actually 10^(x+1).
| -rw-r--r-- | lib/Distribution/Helper.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Distribution/Helper.hs b/lib/Distribution/Helper.hs index a440587..3d7074e 100644 --- a/lib/Distribution/Helper.hs +++ b/lib/Distribution/Helper.hs @@ -816,7 +816,7 @@ getHelper pre_info proj_info qe@QueryEnv{..} = do t0 <- Clock.getTime Monotonic eexe <- compileHelper $ mkCompHelperEnv qeProjLoc qeDistDir pre_info proj_info t1 <- Clock.getTime Monotonic - let dt = (/10e9) $ fromInteger $ Clock.toNanoSecs $ Clock.diffTimeSpec t0 t1 + let dt = (/10^9) $ fromInteger $ Clock.toNanoSecs $ Clock.diffTimeSpec t0 t1 dt :: Float vLog $ printf "compileHelper took %.5fs" dt case eexe of |