Remove unnecessary liftIO
commitcf0bdd8b0ff166839b81bb5cdf973dce27c2f3cf
authorTom Smalley <tfsmalley@gmail.com>
dateTue 22 May 2018, 14:06 (8 years ago)
parent234c86c
lib/command/src/Obelisk/CLI/Logging.hs+1−1
@@ -150,7 +150,7 @@ writeLogWith f noColor (WithSeverity severity s)
150150 | otherwise = liftIO $ f s
151151 where
152152 -- 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 ""
154154 put sgr = liftIO $ bracket_ (setSGR sgr) reset $ T.putStr s
155155
156156-- | Allow the user to immediately switch to verbose logging upon pressing a particular key.