[aura] Less lifting, bro

fosskers · Apr 23, 2020 · e6ee489 · e6ee489
1 parent fa5549c
commit e6ee489
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/aura/exec/aura.hs b/aura/exec/aura.hs
@@ -157,7 +157,7 @@ displayOutputLanguages :: RIO Env ()
 displayOutputLanguages = do
   ss <- asks settings
   notify ss displayOutputLanguages_1
-  liftIO $ traverse_ (putTextLn . tshow) [English ..]
+  traverse_ (putTextLn . tshow) [English ..]
 
 viewConfFile :: RIO Env ()
 viewConfFile = do

diff --git a/aura/lib/Aura/Commands/A.hs b/aura/lib/Aura/Commands/A.hs
@@ -122,7 +122,7 @@ aurPkgInfo :: NonEmpty PkgName -> RIO Env ()
 aurPkgInfo = aurInfo >=> traverse_ displayAurPkgInfo
 
 displayAurPkgInfo :: AurInfo -> RIO Env ()
-displayAurPkgInfo ai = asks settings >>= \ss -> liftIO . putTextLn $ renderAurPkgInfo ss ai <> "\n"
+displayAurPkgInfo ai = asks settings >>= \ss -> putTextLn $ renderAurPkgInfo ss ai <> "\n"
 
 renderAurPkgInfo :: Settings -> AurInfo -> Text
 renderAurPkgInfo ss ai = dtot . colourCheck ss $ entrify ss fields entries
@@ -152,7 +152,7 @@ aurPkgSearch regex = do
             Tail n -> reverse . take (fromIntegral n) . reverse
   results <- fmap (\x -> (x, aurNameOf x `S.member` db)) . t
             <$> aurSearch regex
-  liftIO $ traverse_ (putTextLn . renderSearch ss regex) results
+  traverse_ (putTextLn . renderSearch ss regex) results
 
 renderSearch :: Settings -> Text -> (AurInfo, Bool) -> Text
 renderSearch ss r (i, e) = searchResult

diff --git a/aura/lib/Aura/Commands/C.hs b/aura/lib/Aura/Commands/C.hs
@@ -74,7 +74,7 @@ searchCache :: Text -> RIO Env ()
 searchCache ps = do
   ss <- asks settings
   matches <- liftIO $ cacheMatches ss ps
-  liftIO . traverse_ (putTextLn . T.pack . ppPath) $ L.sort matches
+  traverse_ (putTextLn . T.pack . ppPath) $ L.sort matches
 
 -- | The destination folder must already exist for the back-up to begin.
 backupCache :: FilePath -> RIO Env ()
@@ -96,7 +96,7 @@ backup :: FilePath -> Cache -> RIO Env ()
 backup dir (Cache cache) = do
   ss <- asks settings
   notify ss backupCache_8
-  liftIO $ putTextLn ""  -- So that the cursor can rise at first.
+  putTextLn ""  -- So that the cursor can rise at first.
   copyAndNotify dir (M.elems cache) 1
 
 -- | Manages the file copying and display of the real-time progress notifier.

diff --git a/aura/lib/Aura/Commands/L.hs b/aura/lib/Aura/Commands/L.hs
@@ -58,7 +58,7 @@ logInfoOnPkg pkgs = do
   logFile <- Log . T.lines . decodeUtf8Lenient <$> readFileBinary pth
   let (bads, goods) = fmapEither (logLookup logFile) $ toList pkgs
   traverse_ (report red reportNotInLog_1) $ NEL.nonEmpty bads
-  liftIO . traverse_ putTextLn $ map (renderEntry ss) goods
+  traverse_ (putTextLn . renderEntry ss) goods
 
 logLookup :: Log -> PkgName -> Either PkgName LogEntry
 logLookup (Log lns) p = case matches of

diff --git a/aura/lib/Aura/Dependencies.hs b/aura/lib/Aura/Dependencies.hs
@@ -55,7 +55,7 @@ resolveDeps repo ps = do
   ss <- asks settings
   res <- liftIO $ (Just <$> resolveDeps' ss repo ps) `catchAny` const (pure Nothing)
   Resolution m s <- maybe (throwM $ Failure connectFailure_1) pure res
-  unless (length ps == length m) $ liftIO (putText "\n")
+  unless (length ps == length m) $ putText "\n"
   let de = conflicts ss m s
   unless (null de) . throwM . Failure $ missingPkg_2 de
   either throwM pure $ sortInstall m