hlint refactor: Redundant $

src/Niv/Cli.hs

@@ -365,7 +365,7 @@ cmdAdd cmd packageName attrs = do
     case eFinalSpec of
       Left e -> li (abortUpdateFailed [(packageName, e)])
       Right finalSpec -> do
-        say $ "Writing new sources file"
+        say "Writing new sources file"
         li $
           setSources fsj $
             Sources $
@@ -393,7 +393,7 @@ cmdShow = \case
   Nothing -> do
     fsj <- getFindSourcesJson
     sources <- unSources <$> li (getSources fsj)
-    forWithKeyM_ sources $ showPackage
+    forWithKeyM_ sources showPackage
 
 showPackage :: (MonadIO io) => PackageName -> PackageSpec -> io ()
 showPackage (PackageName pname) (PackageSpec spec) = do
@@ -483,7 +483,7 @@ cmdUpdate = \case
 -- | pretty much tryEvalUpdate but we might issue some warnings first
 doUpdate :: Attrs -> Cmd -> IO (Either SomeException Attrs)
 doUpdate attrs cmd = do
-  forM_ (extraLogs cmd attrs) $ tsay
+  forM_ (extraLogs cmd attrs) tsay
   tryEvalUpdate attrs (updateCmd cmd)
 
 partitionEithersHMS ::

src/Niv/GitHub/API.hs

@@ -89,8 +89,7 @@ defaultRequest (map T.encodeUtf8 -> parts) = do
     $ HTTP.addRequestHeader "accept" "application/vnd.github.v3+json"
     $ HTTP.setRequestSecure githubSecure
     $ HTTP.setRequestHost (T.encodeUtf8 githubApiHost)
-    $ HTTP.setRequestPort githubApiPort
-    $ HTTP.defaultRequest
+    $ HTTP.setRequestPort githubApiPort HTTP.defaultRequest
 
 -- | Get the latest revision for owner, repo and branch.
 -- TODO: explain no error handling

src/Niv/Update/Test.hs

@@ -68,8 +68,8 @@ isNotTooEager = do
   let f1 = proc () -> do
         run (const $ error "IO is too eager (f1)") -< pure ()
         useOrSet "foo" -< "foo"
-  void $ (execUpdate attrs f :: IO (Box T.Text))
-  void $ (execUpdate attrs f1 :: IO (Box T.Text))
+  void (execUpdate attrs f :: IO (Box T.Text))
+  void (execUpdate attrs f1 :: IO (Box T.Text))
   where
     attrs = HMS.singleton "foo" (Locked, "right")