Use forever

app/Main.hs

@@ -3,4 +3,4 @@ module Main where
 import QBar.Cli
 
 main :: IO ()
-main = runQBar
+main = runQBar
\ No newline at end of file

src/QBar/Blocks/Battery.hs

@@ -52,12 +52,11 @@ getBatteryState path = tryMaybe $ do
 
 
 batteryBlock :: PullBlock
-batteryBlock = do
+batteryBlock = forever $ do
   batteryPaths <- liftIO $ map ((apiPath <> "/") <>) . filter (T.isPrefixOf "BAT" . T.pack) <$> getDirectoryContents apiPath
   batteryStates <- liftIO $ mapM getBatteryState batteryPaths
   isPlugged <- liftIO getPluggedState
   updateBatteryBlock isPlugged $ catMaybes batteryStates
-  batteryBlock
   where
     apiPath :: FilePath
     apiPath = "/sys/class/power_supply"

src/QBar/Blocks/Date.hs

@@ -11,10 +11,9 @@ import Control.Lens
 
 
 dateBlock :: PushBlock
-dateBlock = do
+dateBlock = forever $ do
   updateBlock =<< liftIO dateBlockOutput
-  liftIO $ sleepUntil =<< nextMinute
-  dateBlock
+  sleepUntilInterval everyMinute
 
 
 dateBlockOutput :: IO BlockOutput