diff options
| author | jao <jao@gnu.org> | 2026-05-07 01:05:54 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-05-07 01:05:54 +0100 |
| commit | ad7cae0a320c3793a073d82f348b3bacd85ccd35 (patch) | |
| tree | e6157751233b4aaddc6df03977f0385920c4bb6d /src/Xmobar/App/Compile.hs | |
| parent | 90bdfef9df3dff6eabd993cb76467bba3f2c6edf (diff) | |
| download | xmobar-ad7cae0a320c3793a073d82f348b3bacd85ccd35.tar.gz xmobar-ad7cae0a320c3793a073d82f348b3bacd85ccd35.tar.bz2 | |
Diffstat (limited to 'src/Xmobar/App/Compile.hs')
| -rw-r--r-- | src/Xmobar/App/Compile.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar/App/Compile.hs b/src/Xmobar/App/Compile.hs index cee6a8a..e5b08b7 100644 --- a/src/Xmobar/App/Compile.hs +++ b/src/Xmobar/App/Compile.hs @@ -3,7 +3,7 @@ ------------------------------------------------------------------------------ -- | -- Module: Xmobar.App.Compile --- Copyright: (c) 2018 Jose Antonio Ortega Ruiz +-- Copyright: (c) 2018, 2026 Jose Antonio Ortega Ruiz -- License: BSD3-style (see LICENSE) -- -- Maintainer: jao@gnu.org @@ -20,7 +20,7 @@ module Xmobar.App.Compile(recompile, trace, xmessage) where import Control.Monad.IO.Class -import Control.Exception (bracket, SomeException(..)) +import Control.Exception (SomeException(..)) import qualified Control.Exception as E import Control.Monad (filterM, when) import Data.List ((\\)) @@ -141,7 +141,7 @@ recompile confDir dataDir execName force verb = liftIO $ do else shouldRecompile verb src bin lib if sc then do - status <- bracket (openFile err WriteMode) hClose $ + status <- withFile err WriteMode $ \errHandle -> waitForProcess =<< if useScript |