aboutsummaryrefslogtreecommitdiff
path: root/lib/Distribution
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2019-08-21 03:45:01 +0200
committerDaniel Gröber (dxld) <dxld@darkboxed.org>2019-09-17 17:48:26 +0200
commit761952c1afba15b9fdc56e6415beab23f3135945 (patch)
tree143b52d1630c4a19cc629d0ae803bd86d0fde5ad /lib/Distribution
parent89614978a723b1132abcade54701c6f29e2ba24c (diff)
Fix division factor for helper compilation timer
Turns out I'm an idiot and 10eX is actually 10^(x+1).
Diffstat (limited to 'lib/Distribution')
-rw-r--r--lib/Distribution/Helper.hs2
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