[NO-ISSUE] Use fourmolu-0.16.2.0

CONTRIBUTING.md

@@ -10,7 +10,7 @@ The compiler version used is described in the `cabal.project` file.
 The following Haskell command-line tools will have to be installed:
 
 * `postgresql-migration`: To perform schema migrations
-* `fourmolu`: To style the code base. Version is 0.14.1.0
+* `fourmolu`: To style the code base. Version is 0.16.2.0
 * `hlint` & `apply-refact`: To enforce certain patterns in the code base ("lint")
 * `cabal-fmt` and `nixfmt`: To style the cabal and nix files
 * `ghcid`: To automatically reload the Haskell code base upon source changes

Dockerfile

@@ -7,7 +7,7 @@ ARG UID=1000
 
 ARG GHC_VERSION=9.6.5
 ARG CABAL_VERSION=3.10.3.0
-ARG FOURMOLU_VERSION=0.14.1.0
+ARG FOURMOLU_VERSION=0.16.2.0
 ARG HLINT_VERSION=3.8
 ARG APPLY_REFACT_VERSION=0.14.0.0
 ARG CABAL_FMT_VERSION=0.1.12

src/web/FloraWeb/Pages/Server/Admin.hs

@@ -57,26 +57,23 @@ fetchMetadataHandler (Headers session _) = do
       forkIO $
         Async.forConcurrently_
           releasesWithoutReadme
-          ( \(releaseId, version, packagename) -> scheduleReadmeJob jobsPool releaseId packagename version
-          )
+          (\(releaseId, version, packagename) -> scheduleReadmeJob jobsPool releaseId packagename version)
 
   releasesWithoutUploadTime <- Query.getHackagePackageReleasesWithoutUploadTimestamp
   liftIO $
     void $
       forkIO $
         Async.forConcurrently_
           releasesWithoutUploadTime
-          ( \(releaseId, version, packagename) -> scheduleUploadTimeJob jobsPool releaseId packagename version
-          )
+          (\(releaseId, version, packagename) -> scheduleUploadTimeJob jobsPool releaseId packagename version)
 
   releasesWithoutChangelog <- Query.getHackagePackageReleasesWithoutChangelog
   liftIO $
     void $
       forkIO $
         Async.forConcurrently_
           releasesWithoutChangelog
-          ( \(releaseId, version, packagename) -> scheduleChangelogJob jobsPool releaseId packagename version
-          )
+          (\(releaseId, version, packagename) -> scheduleChangelogJob jobsPool releaseId packagename version)
 
   features <- ask @FeatureEnv
   Log.logAttention "features" features
@@ -97,8 +94,7 @@ fetchMetadataHandler (Headers session _) = do
       forkIO $ do
         Async.forConcurrently_
           packagesWithoutDeprecationInformation
-          ( \a -> scheduleReleaseDeprecationListJob jobsPool a
-          )
+          (\a -> scheduleReleaseDeprecationListJob jobsPool a)
         void $ scheduleRefreshLatestVersions jobsPool
 
   pure $ redirect "/admin"

src/web/FloraWeb/Pages/Templates/Packages.hs

@@ -163,8 +163,7 @@ listVersions namespace packageName releases =
     ul_ [class_ "package-list"] $
       Vector.forM_
         releases
-        ( versionListItem namespace packageName
-        )
+        (versionListItem namespace packageName)
 
 versionListItem :: Namespace -> PackageName -> Release -> FloraHTML
 versionListItem namespace packageName release = do
@@ -212,8 +211,7 @@ packageListing mExactMatchItems packages =
           packageListItem (em.namespace, em.name, em.synopsis, em.version, em.license)
     Vector.forM_
       packages
-      ( \PackageInfo{..} -> packageListItem (namespace, name, synopsis, version, license)
-      )
+      (\PackageInfo{..} -> packageListItem (namespace, name, synopsis, version, license))
 
 packageWithExecutableListing
   :: Vector PackageInfoWithExecutables
@@ -430,8 +428,7 @@ displayTestedWith compilersVersions'
         ul_ [class_ "compiler-badges"] $
           Vector.forM_
             compilersVersions
-            ( li_ [] . a_ [class_ "compiler-badge"] . toHtml @Text . display
-            )
+            (li_ [] . a_ [class_ "compiler-badge"] . toHtml @Text . display)
 
 displayMaintainer :: Text -> FloraHTML
 displayMaintainer maintainerInfo =