diff --git a/src/QBar/Core.hs b/src/QBar/Core.hs index 530a297d0347121e63dcadaece093e809e96ee9f..d3fbcb54d599a45af4ddcb6bafb8e99328694d09 100644 --- a/src/QBar/Core.hs +++ b/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 diff --git a/src/QBar/DefaultConfig.hs b/src/QBar/DefaultConfig.hs index 4d353568bdb07a54a9ba536883843e2d74133ce9..811863371dbc488e054be56fd2d1beb3102ce236 100644 --- a/src/QBar/DefaultConfig.hs +++ b/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