Apply fourmolu

Author: Vladislav Sabanov

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

@@ -1,7 +1,7 @@
 {-# LANGUAGE DataKinds #-}
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE LambdaCase #-}
 
 module Distribution.Client.CmdClean (cleanCommand, cleanAction) where
 
@@ -13,8 +13,8 @@ import Distribution.Client.Config
   )
 import Distribution.Client.DistDirLayout
   ( DistDirLayout (..)
-  , defaultDistDirLayout
   , ProjectRoot (ProjectRootImplicit)
+  , defaultDistDirLayout
   , defaultProjectFile
   )
 import Distribution.Client.Errors
@@ -221,7 +221,7 @@ cleanAction (ProjectFlags{..}, CleanFlags{..}) extraArgs _ = do
       removeDirectoryRecursive cache
 
 isValidProjectRoot :: ProjectRoot -> IO Bool
-isValidProjectRoot = \case 
+isValidProjectRoot = \case
   (ProjectRootImplicit dir) -> do
     let projectFile = dir </> defaultProjectFile
     projectExists <- doesFileExist projectFile

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

@@ -568,14 +568,14 @@ exceptionMessageCabalInstall e = case e of
   PackageNameAmbiguousErr ambiguities ->
     unlines
       [ "There is no package named '"
-        ++ prettyShow name
-        ++ "'. "
-        ++ ( if length matches > 1
-              then "However, the following package names exist: "
-              else "However, the following package name exists: "
-           )
-        ++ intercalate ", " ["'" ++ prettyShow m ++ "'" | m <- matches]
-        ++ "."
+          ++ prettyShow name
+          ++ "'. "
+          ++ ( if length matches > 1
+                 then "However, the following package names exist: "
+                 else "However, the following package name exists: "
+             )
+          ++ intercalate ", " ["'" ++ prettyShow m ++ "'" | m <- matches]
+          ++ "."
       | (name, matches) <- ambiguities
       ]
   ExtractTarballPackageErr err -> err
@@ -669,49 +669,49 @@ exceptionMessageCabalInstall e = case e of
   UnrecognisedTarget targets ->
     unlines
       [ "Unrecognised target '"
-        ++ target
-        ++ "'.\n"
-        ++ "Expected a "
-        ++ intercalate " or " expected
-        ++ ", rather than '"
-        ++ got
-        ++ "'."
+          ++ target
+          ++ "'.\n"
+          ++ "Expected a "
+          ++ intercalate " or " expected
+          ++ ", rather than '"
+          ++ got
+          ++ "'."
       | (target, expected, got) <- targets
       ]
   NoSuchTargetSelectorErr targets ->
     unlines
       [ "Unknown target '"
-        ++ target
-        ++ "'.\n"
-        ++ unlines
-          [ ( case inside of
-                Just (kind, "") ->
-                  "The " ++ kind ++ " has no "
-                Just (kind, thing) ->
-                  "The " ++ kind ++ " " ++ thing ++ " has no "
-                Nothing -> "There is no "
-            )
-            ++ intercalate
-              " or "
-              [ mungeThing thing ++ " '" ++ got ++ "'"
-              | (thing, got, _alts) <- nosuch'
-              ]
-            ++ "."
-            ++ if null alternatives
-              then ""
-              else
-                "\nPerhaps you meant "
-                  ++ intercalate
-                    ";\nor "
-                    [ "the " ++ thing ++ " '" ++ intercalate "' or '" alts ++ "'?"
-                    | (thing, alts) <- alternatives
-                    ]
-          | (inside, nosuch') <- groupByContainer nosuch
-          , let alternatives =
-                  [ (thing, alts)
-                  | (thing, _got, alts@(_ : _)) <- nosuch'
+          ++ target
+          ++ "'.\n"
+          ++ unlines
+            [ ( case inside of
+                  Just (kind, "") ->
+                    "The " ++ kind ++ " has no "
+                  Just (kind, thing) ->
+                    "The " ++ kind ++ " " ++ thing ++ " has no "
+                  Nothing -> "There is no "
+              )
+                ++ intercalate
+                  " or "
+                  [ mungeThing thing ++ " '" ++ got ++ "'"
+                  | (thing, got, _alts) <- nosuch'
                   ]
-          ]
+                ++ "."
+                ++ if null alternatives
+                  then ""
+                  else
+                    "\nPerhaps you meant "
+                      ++ intercalate
+                        ";\nor "
+                        [ "the " ++ thing ++ " '" ++ intercalate "' or '" alts ++ "'?"
+                        | (thing, alts) <- alternatives
+                        ]
+            | (inside, nosuch') <- groupByContainer nosuch
+            , let alternatives =
+                    [ (thing, alts)
+                    | (thing, _got, alts@(_ : _)) <- nosuch'
+                    ]
+            ]
       | (target, nosuch) <- targets
       , let groupByContainer =
               map
@@ -731,16 +731,16 @@ exceptionMessageCabalInstall e = case e of
   TargetSelectorAmbiguousErr targets ->
     unlines
       [ "Ambiguous target '"
-        ++ target
-        ++ "'. It could be:\n "
-        ++ unlines
-          [ "   "
-            ++ ut
-            ++ " ("
-            ++ bt
-            ++ ")"
-          | (ut, bt) <- amb
-          ]
+          ++ target
+          ++ "'. It could be:\n "
+          ++ unlines
+            [ "   "
+                ++ ut
+                ++ " ("
+                ++ bt
+                ++ ")"
+            | (ut, bt) <- amb
+            ]
       | (target, amb) <- targets
       ]
   TargetSelectorNoCurrentPackageErr target ->
@@ -787,11 +787,11 @@ exceptionMessageCabalInstall e = case e of
       ++ "be unambiguous but matches the following targets:\n"
       ++ unlines
         [ "'"
-          ++ rendering
-          ++ "', matching:"
-          ++ concatMap
-            ("\n  - " ++)
-            matches
+            ++ rendering
+            ++ "', matching:"
+            ++ concatMap
+              ("\n  - " ++)
+              matches
         | (rendering, matches) <- renderingsAndMatches
         ]
       ++ "\nNote: Cabal expects to be able to make a single fully "
@@ -887,7 +887,7 @@ exceptionMessageCabalInstall e = case e of
     renderCabalFileParseError cbfError
   ProjectConfigParseFailure pcfError ->
     renderProjectConfigParseError pcfError
-  CleanActionNotPackage -> 
+  CleanActionNotPackage ->
     "Not a cabal project or package directory; skipping project cleanup."
 
 instance Exception (VerboseException CabalInstallException) where