Rename persistentBlockScript to startPersistentBlockScript

src/QBar/Core.hs

@@ -242,9 +242,9 @@ blockScript path = forever $ updateBlock =<< (lift blockScriptAction)
     createScriptBlock' :: Bool -> Importance -> T.Text -> BlockOutput
     createScriptBlock' active importance text = blockName ?~ T.pack path $ mkBlockOutput $ mkText active importance text
 
-startPersistentBlockScript :: FilePath -> PushBlock
+persistentBlockScript :: FilePath -> PushBlock
 -- The outer catchP only catches errors that occur during process creation
-startPersistentBlockScript path = catchP startScriptProcess handleError
+persistentBlockScript path = catchP startScriptProcess handleError
   where
     handleError :: IOException -> PushBlock
     handleError e = do

src/QBar/DefaultConfig.hs

@@ -21,7 +21,7 @@ generateDefaultBarConfig = do
   let cpu = systemInfoInterval (blockScript $ blockLocation "cpu_usage") >-> modify ((blockName ?~ "cpu") . addIcon "💻\xFE0E") >-> autoPadding
   let ram = systemInfoInterval (blockScript $ blockLocation "memory") >-> modify (addIcon "🐏\xFE0E") >-> autoPadding
   let temperature = systemInfoInterval (blockScript $ blockLocation "temperature") >-> autoPadding
-  let volumeBlock = startPersistentBlockScript $ blockLocation "volume-pulseaudio -S -F3"
+  let volumeBlock = persistentBlockScript $ blockLocation "volume-pulseaudio -S -F3"
   let battery = systemInfoInterval $ batteryBlock >-> modify (blockName ?~ "battery")
 
   addBlock dateBlock