github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

No need for bang patterns here

Browse Source
This commit is contained in:
Timothy Clem 2017-10-05 16:19:40 -07:00
parent 077deb44c2
commit 701cbd7bf2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Semantic/Stat.hs
View File

@ -1,4 +1,3 @@
{-# LANGUAGE BangPatterns #-}
module Semantic.Stat
(
-- Primary API for creating stats.
@ -82,7 +81,7 @@ timing n v = Stat n (Timer v)
withTiming :: (Stat -> IO ()) -> String -> Tags -> IO a -> IO a
withTiming statter name tags f = do
start <- Time.getCurrentTime
!result <- f
result <- f
end <- Time.getCurrentTime
let duration = realToFrac (Time.diffUTCTime end start * 1000)
statter (timing name duration tags)