runCpuBar :: (MonadIO m) => Cpu -> Int -> CpuStat -> Bar -> m ()
runCpuBar cpu ms i bar = liftIO $ pollForever 0 i $ \p -> do
    a <- readStat cpu
    threadDelay (ms * 1000)
    b <- readStat cpu
    Gtk.set bar [barValue Gtk.:= calcCpuLoad p a b]
    return b
runCpuBar :: (MonadIO m) => Cpu -> Int -> CpuStat -> Bar -> m ()
runCpuBar cpu ms i bar = liftIO $ pollForever 0 i $ \p -> do
    a <- readStat cpu
    threadDelay (ms * 1000)
    b <- readStat cpu
    Gtk.set bar [barValue Gtk.:= calcCpuLoad p a b]
    return b
runCpuBar cpu ms i bar = liftIO $ pollForever 0 i $ \p -> do
    a <- readStat cpu
    threadDelay (ms * 1000)
    b <- readStat cpu
    Gtk.set bar [barValue Gtk.:= calcCpuLoad p a b]
    return b