amazonka: reformatting everything

farzadbekran · Oct 13, 2021 · 8905030 · 8905030
1 parent d607e8a
commit 8905030
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 15 deletions.
diff --git a/WORKSPACE b/WORKSPACE
@@ -31,12 +31,12 @@ versioned_http_archive(
 
 versioned_http_archive(
     name = "rules_haskell",
+    patch_args = ["-p1"],
+    patches = ["//:third_party/rules_haskell/haddock_index_root.patch"],
     sha256 = "73941c142bf37df115817083c0834fbc3269c963c7049bfbc345a9c76162e918",
     strip_prefix = "rules_haskell-{version}",
     url = "https://github.com/tweag/rules_haskell/archive/{version}.tar.gz",
     version = "ea0e70ace2432a490d4ab4c4e54617612466e584",
-    patches = ["//:third_party/rules_haskell/haddock_index_root.patch"],
-    patch_args = ["-p1"]
 )
 
 versioned_http_archive(

diff --git a/amazonka/amazonka.cabal b/amazonka/amazonka.cabal
@@ -134,8 +134,8 @@ library
     , lens                  >=4.14
     , memory                >=0.6
     , mtl                   >=2.1.3.1
-    , resourcet             >=1.1
     , regex-posix           >=0.96
+    , resourcet             >=1.1
     , retry                 >=0.7.6.2
     , scientific            >=0.3
     , tagged                >=0.7

diff --git a/amazonka/src/Network/AWS/Data/Path.hs b/amazonka/src/Network/AWS/Data/Path.hs
@@ -7,7 +7,7 @@
 -- Portability : non-portable (GHC extensions)
 module Network.AWS.Data.Path
   ( -- * Path Types
-    Path(..),
+    Path (..),
     RawPath,
     EscapedPath,
 

diff --git a/docs/BUILD.bazel b/docs/BUILD.bazel
@@ -20,7 +20,7 @@ hugo_site(
     data = [":packages"],
     hugo = "@nixpkgs_hugo//:bin/hugo",
     layouts = glob(["layouts/**/*"]),
-    static = [":static"]  + glob(["static/**/*"]),
+    static = [":static"] + glob(["static/**/*"]),
     theme = ":theme",
 )
 
@@ -38,9 +38,9 @@ haskell_doc(
     # if they don't have the expected directory prefix. This could be made more
     # robust by using `rules_pkg/mappings.bzl:pkg_files` to assemble the directory.
     name = "static",
-    visibility = ["//visibility:public"],
     # See //:third_party/rules_haskell/haddock_index_root.patch
     index = False,
+    visibility = ["//visibility:public"],
     deps = [
         "//amazonka",
         "//amazonka-alexa-business",

diff --git a/gen/src/Gen/AST/Data/Syntax.hs b/gen/src/Gen/AST/Data/Syntax.hs
@@ -430,14 +430,14 @@ responseE p r fs = Exts.app (responseF p r fs) bdy
       | fieldLit f =
         if fieldIsParam f
           then Exts.app (var "Prelude.pure") (var "x")
-          else
-          -- Coerce is inserted here to handle newtypes such as Sensitive.
-          Exts.app (var "Prelude.pure")
-          . Exts.paren
-          . Exts.app justE
-          . Exts.paren
-          . Exts.app (var "Prelude.coerce")
-          $ var "x"
+          else -- Coerce is inserted here to handle newtypes such as Sensitive.
+
+            Exts.app (var "Prelude.pure")
+              . Exts.paren
+              . Exts.app justE
+              . Exts.paren
+              . Exts.app (var "Prelude.coerce")
+              $ var "x"
       -- This ensures anything which is set as a payload,
       -- but is a primitive type is just consumed as a bytestring.
       | otherwise = parseAll

diff --git a/test/src/Test/AWS/TH.hs b/test/src/Test/AWS/TH.hs
@@ -32,7 +32,8 @@ deriving instance Lift UTCTime
 deriving instance Lift Day
 
 -- DiffTime's constructor is not exported, so use a manual instance
-instance Lift DiffTime where
+instance Lift DiffTime
+
 #if MIN_VERSION_template_haskell(2,16,0)
   liftTyped x = [||toEnum $$(liftTyped (fromEnum x))||]
 #else