From ad7cae0a320c3793a073d82f348b3bacd85ccd35 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 7 May 2026 01:05:54 +0100 Subject: hlint warnings --- src/Xmobar/App/Compile.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Xmobar/App/Compile.hs') 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 -- cgit v1.2.3