stopTimer :: Timer -> IO ()
stopTimer (Timer m) = takeMVar m >> putMVar m False
stopTimer :: Timer -> IO ()
stopTimer (Timer m) = takeMVar m >> putMVar m False
stopTimer (Timer m) = takeMVar m >> putMVar m False