Fix fourmolu

Author: ulysses4ever

cabal-install/src/Distribution/Client/List.hs

@@ -431,25 +431,28 @@ showPackageSummaryInfo pkginfo =
   renderStyle (style{lineLength = 80, ribbonsPerLine = 1}) $
     char '*'
       <+> pretty (pkgName pkginfo)
-      $+$ nest 4 (vcat
-                [ maybeShowST (synopsis pkginfo) "Synopsis:" reflowParagraphs
-                , text "Default available version:"
-                    <+> case selectedSourcePkg pkginfo of
-                      Nothing -> text "[ Not available from any configured repository ]"
-                      Just pkg -> pretty (packageVersion pkg)
-                , text "Installed versions:"
-                    <+> case installedVersions pkginfo of
-                      []
-                        | hasLib pkginfo -> text "[ Not installed ]"
-                        | otherwise -> text "[ Unknown ]"
-                      versions ->
-                        dispTopVersions
-                          4
-                          (preferredVersions pkginfo)
-                          versions
-                , maybeShowST (homepage pkginfo) "Homepage:" text
-                , text "License: " <+> either pretty pretty (license pkginfo)
-                ])
+      $+$ nest
+        4
+        ( vcat
+            [ maybeShowST (synopsis pkginfo) "Synopsis:" reflowParagraphs
+            , text "Default available version:"
+                <+> case selectedSourcePkg pkginfo of
+                  Nothing -> text "[ Not available from any configured repository ]"
+                  Just pkg -> pretty (packageVersion pkg)
+            , text "Installed versions:"
+                <+> case installedVersions pkginfo of
+                  []
+                    | hasLib pkginfo -> text "[ Not installed ]"
+                    | otherwise -> text "[ Unknown ]"
+                  versions ->
+                    dispTopVersions
+                      4
+                      (preferredVersions pkginfo)
+                      versions
+            , maybeShowST (homepage pkginfo) "Homepage:" text
+            , text "License: " <+> either pretty pretty (license pkginfo)
+            ]
+        )
       $+$ text ""
   where
     maybeShowST l s f
@@ -464,41 +467,44 @@ showPackageDetailedInfo pkginfo =
         <<>> maybe Disp.empty (\v -> char '-' Disp.<> pretty v) (selectedVersion pkginfo)
       <+> text (replicate (16 - length (prettyShow (pkgName pkginfo))) ' ')
         <<>> parens pkgkind
-      $+$ nest 4 (vcat
-                [ entryST "Synopsis" synopsis hideIfNull reflowParagraphs
-                , entry
-                    "Versions available"
-                    sourceVersions
-                    (altText null "[ Not available from server ]")
-                    (dispTopVersions 9 (preferredVersions pkginfo))
-                , entry
-                    "Versions installed"
-                    installedVersions
-                    ( altText
-                        null
-                        ( if hasLib pkginfo
-                            then "[ Not installed ]"
-                            else "[ Unknown ]"
-                        )
+      $+$ nest
+        4
+        ( vcat
+            [ entryST "Synopsis" synopsis hideIfNull reflowParagraphs
+            , entry
+                "Versions available"
+                sourceVersions
+                (altText null "[ Not available from server ]")
+                (dispTopVersions 9 (preferredVersions pkginfo))
+            , entry
+                "Versions installed"
+                installedVersions
+                ( altText
+                    null
+                    ( if hasLib pkginfo
+                        then "[ Not installed ]"
+                        else "[ Unknown ]"
                     )
-                    (dispTopVersions 4 (preferredVersions pkginfo))
-                , entryST "Homepage" homepage orNotSpecified text
-                , entryST "Bug reports" bugReports orNotSpecified text
-                , entryST "Description" description hideIfNull reflowParagraphs
-                , entryST "Category" category hideIfNull text
-                , entry "License" license alwaysShow (either pretty pretty)
-                , entryST "Author" author hideIfNull reflowLines
-                , entryST "Maintainer" maintainer hideIfNull reflowLines
-                , entry "Source repo" sourceRepo orNotSpecified text
-                , entry "Executables" executables hideIfNull (commaSep pretty)
-                , entry "Flags" flags hideIfNull (commaSep dispFlag)
-                , entry "Dependencies" dependencies hideIfNull (commaSep dispExtDep)
-                , entry "Documentation" haddockHtml showIfInstalled text
-                , entry "Cached" haveTarball alwaysShow dispYesNo
-                , if not (hasLib pkginfo)
-                    then mempty
-                    else text "Modules:" $+$ nest 4 (vcat (map pretty . sort . modules $ pkginfo))
-                ])
+                )
+                (dispTopVersions 4 (preferredVersions pkginfo))
+            , entryST "Homepage" homepage orNotSpecified text
+            , entryST "Bug reports" bugReports orNotSpecified text
+            , entryST "Description" description hideIfNull reflowParagraphs
+            , entryST "Category" category hideIfNull text
+            , entry "License" license alwaysShow (either pretty pretty)
+            , entryST "Author" author hideIfNull reflowLines
+            , entryST "Maintainer" maintainer hideIfNull reflowLines
+            , entry "Source repo" sourceRepo orNotSpecified text
+            , entry "Executables" executables hideIfNull (commaSep pretty)
+            , entry "Flags" flags hideIfNull (commaSep dispFlag)
+            , entry "Dependencies" dependencies hideIfNull (commaSep dispExtDep)
+            , entry "Documentation" haddockHtml showIfInstalled text
+            , entry "Cached" haveTarball alwaysShow dispYesNo
+            , if not (hasLib pkginfo)
+                then mempty
+                else text "Modules:" $+$ nest 4 (vcat (map pretty . sort . modules $ pkginfo))
+            ]
+        )
       $+$ text ""
   where
     entry fname field cond format = case cond (field pkginfo) of

cabal-install/src/Distribution/Client/ProjectPlanOutput.hs

@@ -194,12 +194,11 @@ encodePlanAsJson distDirLayout elaboratedInstallPlan elaboratedSharedConfig =
                     J.object $
                       [ comp2str c
                         J..= J.object
-                             (
-                                [ "depends" J..= map (jdisplay . confInstId) (map fst ldeps)
-                                , "exe-depends" J..= map (jdisplay . confInstId) edeps
-                                ]
-                                  ++ bin_file c
-                             )
+                          ( [ "depends" J..= map (jdisplay . confInstId) (map fst ldeps)
+                            , "exe-depends" J..= map (jdisplay . confInstId) edeps
+                            ]
+                              ++ bin_file c
+                          )
                       | (c, (ldeps, edeps)) <-
                           ComponentDeps.toList $
                             ComponentDeps.zip