|
|
|
@ -1,5 +1,5 @@ |
|
|
|
|
{-# LANGUAGE RecordWildCards #-} |
|
|
|
|
{-# LANGUAGE BangPatterns #-} |
|
|
|
|
{-# LANGUAGE Strict #-} |
|
|
|
|
{-# LANGUAGE ExplicitForAll #-} |
|
|
|
|
{-# LANGUAGE ScopedTypeVariables #-} |
|
|
|
|
{-# LANGUAGE RankNTypes #-} |
|
|
|
@ -111,9 +111,9 @@ withAffection AffectionConfig{..} = do |
|
|
|
|
now <- liftIO $ getTime Monotonic |
|
|
|
|
let lastTime = sysTime ad |
|
|
|
|
-- compute dt and update elapsedTime |
|
|
|
|
let !dt = fromIntegral |
|
|
|
|
let dt = fromIntegral |
|
|
|
|
(toNanoSecs $ diffTimeSpec lastTime now) / (10 ^ (9 :: Int)) |
|
|
|
|
!ne = elapsedTime ad + dt |
|
|
|
|
ne = elapsedTime ad + dt |
|
|
|
|
-- update state data object with new time values |
|
|
|
|
put $ ad |
|
|
|
|
{ elapsedTime = ne |
|
|
|
|