ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF small optimization

This commit is contained in:
Nathan Dwarshuis 2021-06-24 00:27:48 -04:00
parent b831ace369
commit df94a93390
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/XMonad/Internal/DBus/IntelBacklight.hs
View File

@ -121,8 +121,8 @@ hasBacklight' = do
msg :: Either String Bool -> IO () msg :: Either String Bool -> IO ()
msg (Right True) = return () msg (Right True) = return ()
msg (Right False) = print ("No backlight detected. Controls disabled" :: String) msg (Right False) = putStrLn "No backlight detected. Controls disabled"
msg (Left m) = print ("WARNING: " ++ m) msg (Left m) = putStrLn $ "WARNING: " ++ m
hasBacklightMsg :: IO Bool hasBacklightMsg :: IO Bool
hasBacklightMsg = do hasBacklightMsg = do