View difference between Paste ID: Jkuw84SY and yGx0TgHH

-timerWidget :: Integer -> Widget a ()
+{-# LANGUAGE OverloadedStrings #-}
 import Reflex.Dom
-  t0 <- liftJS getCurrentTime
+import Data.Text
 import Data.Time.Clock
 import Data.Monoid ((<>))
-  eTick <- tickLossyFrom (realToFrac (1 :: Integer)) t0 eStart
+import Control.Monad.Fix
-  let dTimer' = timer' t0 120 eStart ePause eTick
+import Control.Monad.Trans
 
 timerWidget :: MonadWidget t m => Integer -> m ()
-timer' :: (PerformEvent t m, MonadWidget t m, MonadFix m, MonadHold t m, Reflex t) =>
+
   t0 <- liftIO getCurrentTime
   eStart <- button "Start"
-  beStartStop <- hold never . leftmost $ [ (const 0 <$ eTick) <$ ePause, ((1+) <$ eTick) <$ eStart ]
+
   eTick <- tickLossy 1.0 t0
   let dTimer' = timer' t0 maxTime eStart ePause eTick
   dynText =<< dTimer'
 
 timer' :: MonadWidget t m =>
   UTCTime -> Integer -> Event t () -> Event t () -> Event t TickInfo -> m (Dynamic t Text)
 timer' t maxTime eStart ePause eTick = do
   beStartStop <- hold never . leftmost $ [ ((0+) <$ eTick) <$ ePause, ((1+) <$ eTick) <$ eStart ]
-        fill n = if n `elem` [0..9] then "0" <> show n else show n
+
   fmap (formatS maxTime) <$> foldDyn ($) 0 eSwitch
 
 formatS :: Integer -> Integer -> Text
 formatS max cur =
   case properFraction (fromInteger (max-cur) / 60) of
     (mins, s) ->  let secs = round (s * 60) in
       pack $ fill mins <> ":" <> fill secs where
         fill n = if n `elem` [0..9] then "0" <> show n else show n
 
 main = mainWidget $ timerWidget 120