REF small optimization
This commit is contained in:
parent
b831ace369
commit
df94a93390
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue