diff options
| author | Enrico Maria De Angelis <enricomaria.dean6elis@gmail.com> | 2025-10-26 12:06:21 +0100 |
|---|---|---|
| committer | Enrico Maria De Angelis <enricomaria.dean6elis@gmail.com> | 2025-10-26 13:16:59 +0100 |
| commit | 0495a8c0e453b0d29e3eb24f38491a9d534c5e94 (patch) | |
| tree | ec5c34fe9bd7c42bf632758241ca7acbe8ef1cfc /src/Xmobar/Run/Loop.hs | |
| parent | 57e31a571828e387f3b7b1e7414dd62f1783aa4b (diff) | |
| download | xmobar-0495a8c0e453b0d29e3eb24f38491a9d534c5e94.tar.gz xmobar-0495a8c0e453b0d29e3eb24f38491a9d534c5e94.tar.bz2 | |
Avoid redundant use of IO monad
Diffstat (limited to 'src/Xmobar/Run/Loop.hs')
| -rw-r--r-- | src/Xmobar/Run/Loop.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/Run/Loop.hs b/src/Xmobar/Run/Loop.hs index bda41ff..6775961 100644 --- a/src/Xmobar/Run/Loop.hs +++ b/src/Xmobar/Run/Loop.hs @@ -57,7 +57,7 @@ type LoopFunction = TMVar SignalType -> TVar [String] -> IO () loop :: Config -> LoopFunction -> IO () loop conf looper = withDeferSignals $ do - cls <- mapM (parseTemplate (commands conf) (sepChar conf)) + let cls = map (parseTemplate (commands conf) (sepChar conf)) (splitTemplate (alignSep conf) (template conf)) let confSig = unSignalChan (signal conf) sig <- maybe newEmptyTMVarIO pure confSig |