[aura] Linting

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

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/aura/lib/Aura/Core.hs b/aura/lib/Aura/Core.hs
@@ -175,7 +175,7 @@ areSatisfied ds = do
 checkDBLock :: Settings -> IO ()
 checkDBLock ss = do
   locked <- doesFileExist lockFile
-  when locked $ (warn ss checkDBLock_1) *> B.getLine *> checkDBLock ss
+  when locked $ warn ss checkDBLock_1 *> B.getLine *> checkDBLock ss
 
 -------
 -- MISC  -- Too specific for `Utilities.hs` or `Aura.Utils`

diff --git a/aura/lib/Aura/Install.hs b/aura/lib/Aura/Install.hs
@@ -93,12 +93,11 @@ install' pkgs = do
               unless (switch ss NoPkgbuildCheck)
                 $ traverse_ (traverse_ analysePkgbuild) buildPkgs
               reportPkgsToInstall repoPkgs buildPkgs
-              unless (switch ss DryRun) $ do
-                withOkay ss install_3 install_4 $ do
-                  traverse_ repoInstall $ NEL.nonEmpty repoPkgs
-                  let !mbuildPkgs = NEL.nonEmpty buildPkgs
-                  traverse_ (liftIO . storePkgbuilds . fold1) mbuildPkgs
-                  traverse_ buildAndInstall mbuildPkgs
+              unless (switch ss DryRun) . withOkay ss install_3 install_4 $ do
+                traverse_ repoInstall $ NEL.nonEmpty repoPkgs
+                let !mbuildPkgs = NEL.nonEmpty buildPkgs
+                traverse_ (liftIO . storePkgbuilds . fold1) mbuildPkgs
+                traverse_ buildAndInstall mbuildPkgs
 
 -- | Determine if a package's PKGBUILD might contain malicious bash code.
 analysePkgbuild :: Buildable -> RIO Env ()