git.iko.soy/obelisk
on master help sign in
Remove unnecessary liftIO
cf0bdd8Tom Smalley
lib/command/src/Obelisk/CLI/Logging.hs+1−1
compare with master
unifiedsplit
@@ -150,7 +150,7 @@ writeLogWith f noColor (WithSeverity severity s)
150 | otherwise = liftIO $ f s
150 | otherwise = liftIO $ f s
151 where
151 where
152 -- We must reset *before* outputting the newline (if any), otherwise the cursor won't be reset.
152 -- We must reset *before* outputting the newline (if any), otherwise the cursor won't be reset.
153− reset = liftIO $ setSGR [Reset] >> f ""
153+ reset = setSGR [Reset] >> f ""
154 put sgr = liftIO $ bracket_ (setSGR sgr) reset $ T.putStr s
154 put sgr = liftIO $ bracket_ (setSGR sgr) reset $ T.putStr s
155
155
156-- | Allow the user to immediately switch to verbose logging upon pressing a particular key.
156-- | Allow the user to immediately switch to verbose logging upon pressing a particular key.