From df94a93390ed4e747176a0fc6ad61943504875e4 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 24 Jun 2021 00:27:48 -0400 Subject: [PATCH] REF small optimization --- lib/XMonad/Internal/DBus/IntelBacklight.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/XMonad/Internal/DBus/IntelBacklight.hs b/lib/XMonad/Internal/DBus/IntelBacklight.hs index 5b6665b..f0f4020 100644 --- a/lib/XMonad/Internal/DBus/IntelBacklight.hs +++ b/lib/XMonad/Internal/DBus/IntelBacklight.hs @@ -121,8 +121,8 @@ hasBacklight' = do msg :: Either String Bool -> IO () msg (Right True) = return () -msg (Right False) = print ("No backlight detected. Controls disabled" :: String) -msg (Left m) = print ("WARNING: " ++ m) +msg (Right False) = putStrLn "No backlight detected. Controls disabled" +msg (Left m) = putStrLn $ "WARNING: " ++ m hasBacklightMsg :: IO Bool hasBacklightMsg = do