From 761952c1afba15b9fdc56e6415beab23f3135945 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Wed, 21 Aug 2019 03:45:01 +0200
Subject: Fix division factor for helper compilation timer

Turns out I'm an idiot and 10eX is actually 10^(x+1).
---
 lib/Distribution/Helper.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

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
-- 
cgit v1.2.3