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

View File

@ -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