diff options
Diffstat (limited to 'TimeKeeper.hs')
-rw-r--r-- | TimeKeeper.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/TimeKeeper.hs b/TimeKeeper.hs index d85f61f..36e7e8a 100644 --- a/TimeKeeper.hs +++ b/TimeKeeper.hs | |||
@@ -24,6 +24,9 @@ newTimeKeeper = do | |||
24 | ff <- newMVar 0 | 24 | ff <- newMVar 0 |
25 | return $ TimeKeeper s ff | 25 | return $ TimeKeeper s ff |
26 | 26 | ||
27 | getSeconds :: TimeKeeper -> IO Double | ||
28 | getSeconds tk = readMVar (tmSeconds tk) | ||
29 | |||
27 | tick :: TimeKeeper -> Widget -> FrameClock -> IO Bool | 30 | tick :: TimeKeeper -> Widget -> FrameClock -> IO Bool |
28 | tick tm widget clock = widgetGetWindow widget >>= \case | 31 | tick tm widget clock = widgetGetWindow widget >>= \case |
29 | Nothing -> return SOURCE_REMOVE | 32 | Nothing -> return SOURCE_REMOVE |