Fix whitespace in *.hs sources

haskell · Mar 16, 2024 · e420bf2 · e420bf2
1 parent 2ea012e
commit e420bf2
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/Cabal-described/src/Distribution/Described.hs b/Cabal-described/src/Distribution/Described.hs
@@ -591,4 +591,4 @@ instance Described CompatLicenseFile where
     describe _ = describe ([] :: [Token])
 
 instance Described CompatFilePath where
-    describe _ = describe ([] :: [Token]) 
+    describe _ = describe ([] :: [Token])
diff --git a/Cabal-described/src/Distribution/Utils/CharSet.hs b/Cabal-described/src/Distribution/Utils/CharSet.hs
@@ -244,4 +244,4 @@ upper = foldl' (flip insert) empty [ c | c <- [ minBound .. maxBound ], isUpper
 -- $setup
 -- Use -XOverloadedStrings to avoid the error: Couldn't match type ‘[Char]’ with ‘CharSet’
 -- >>> :set -XOverloadedStrings
--- >>> import Prelude (length)
+-- >>> import Prelude (length)
diff --git a/Cabal-tests/tests/UnitTests/Distribution/Simple/Program/GHC.hs b/Cabal-tests/tests/UnitTests/Distribution/Simple/Program/GHC.hs
@@ -190,4 +190,4 @@ options_9_0_all =
 options_9_0_affects :: [String]
 options_9_0_affects =
     [ "-fcmm-static-pred"
-    ]
+    ]
diff --git a/bootstrap/src/Main.hs b/bootstrap/src/Main.hs
@@ -113,7 +113,7 @@ main2 meta plan = do
                 case P.uPkgSrc unit of
                       Just (P.RepoTarballPackage (P.RepoSecure _uri)) ->
                         return Hackage
-                      Just (P.LocalUnpackedPackage _path) -> 
+                      Just (P.LocalUnpackedPackage _path) ->
                         return Local
                       pkgsrc ->
                         die $ "package source not supported: " ++ show pkgsrc

diff --git a/cabal-install-solver/src/Distribution/Solver/Modular/Message.hs b/cabal-install-solver/src/Distribution/Solver/Modular/Message.hs
@@ -357,4 +357,4 @@ showConflictingDep (ConflictingDep dr (PkgComponent qpn comp) ci) =
 -- >>> let v0 = POption (I (mkVersion [0]) InRepo) Nothing
 -- >>> let v1 = POption (I (mkVersion [1]) InRepo) Nothing
 -- >>> let i0 = POption (I (mkVersion [0]) (Inst $ mkUnitId "foo-bar-0-inplace")) Nothing
--- >>> let i1 = POption (I (mkVersion [1]) (Inst $ mkUnitId "foo-bar-1-inplace")) Nothing
+-- >>> let i1 = POption (I (mkVersion [1]) (Inst $ mkUnitId "foo-bar-1-inplace")) Nothing