summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2016-03-21 06:48:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-03-21 06:48:00 (GMT)
commit1806f06f3834752ce1e98a2cbe988a23bd4e09e9 (patch)
tree2f7b3474ab2a492feb0ba5073172c2c4516dc350
parentec0791b3b69924b8686740f3a6c28b73f74d026b (diff)
version 1.4.01.4.0
-rw-r--r--amazonka-core.cabal6
-rw-r--r--src/Network/AWS/Compat/Locale.hs2
-rw-r--r--src/Network/AWS/Compat/Time.hs2
-rw-r--r--src/Network/AWS/Data/Base64.hs5
-rw-r--r--src/Network/AWS/Data/Body.hs2
-rw-r--r--src/Network/AWS/Data/ByteString.hs2
-rw-r--r--src/Network/AWS/Data/Crypto.hs2
-rw-r--r--src/Network/AWS/Data/Headers.hs2
-rw-r--r--src/Network/AWS/Data/JSON.hs2
-rw-r--r--src/Network/AWS/Data/List1.hs5
-rw-r--r--src/Network/AWS/Data/Log.hs2
-rw-r--r--src/Network/AWS/Data/Map.hs4
-rw-r--r--src/Network/AWS/Data/Numeric.hs6
-rw-r--r--src/Network/AWS/Data/Path.hs2
-rw-r--r--src/Network/AWS/Data/Query.hs2
-rw-r--r--src/Network/AWS/Data/Sensitive.hs5
-rw-r--r--src/Network/AWS/Data/Text.hs2
-rw-r--r--src/Network/AWS/Data/Time.hs10
-rw-r--r--src/Network/AWS/Data/XML.hs2
-rw-r--r--src/Network/AWS/Endpoint.hs2
-rw-r--r--src/Network/AWS/Error.hs2
-rw-r--r--src/Network/AWS/Lens.hs2
-rw-r--r--src/Network/AWS/Pager.hs2
-rw-r--r--src/Network/AWS/Prelude.hs2
-rw-r--r--src/Network/AWS/Request.hs2
-rw-r--r--src/Network/AWS/Response.hs2
-rw-r--r--src/Network/AWS/Sign/V2.hs2
-rw-r--r--src/Network/AWS/Sign/V4.hs7
-rw-r--r--src/Network/AWS/Sign/V4/Base.hs2
-rw-r--r--src/Network/AWS/Sign/V4/Chunked.hs2
-rw-r--r--src/Network/AWS/Types.hs2
-rw-r--r--src/Network/AWS/Waiter.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/Arbitrary.hs2
-rw-r--r--test/Test/AWS/Data/Base64.hs2
-rw-r--r--test/Test/AWS/Data/List.hs2
-rw-r--r--test/Test/AWS/Data/Maybe.hs2
-rw-r--r--test/Test/AWS/Data/Numeric.hs2
-rw-r--r--test/Test/AWS/Data/Path.hs2
-rw-r--r--test/Test/AWS/Data/Time.hs2
-rw-r--r--test/Test/AWS/Error.hs2
-rw-r--r--test/Test/AWS/Sign/V4.hs2
-rw-r--r--test/Test/AWS/Util.hs2
43 files changed, 70 insertions, 48 deletions
diff --git a/amazonka-core.cabal b/amazonka-core.cabal
index 786d09b..5200670 100644
--- a/amazonka-core.cabal
+++ b/amazonka-core.cabal
@@ -1,5 +1,5 @@
name: amazonka-core
-version: 1.3.7
+version: 1.4.0
synopsis: Core data types and functionality for Amazonka libraries.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@ license: OtherLicense
license-file: LICENSE
author: Brendan Hay
maintainer: Brendan Hay <brendan.g.hay@gmail.com>
-copyright: Copyright (c) 2013-2015 Brendan Hay
+copyright: Copyright (c) 2013-2016 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
extra-source-files: README.md
@@ -94,7 +94,7 @@ library
, text >= 1.1
, transformers >= 0.2
, transformers-compat >= 0.3
- , unordered-containers >= 0.2.5
+ , unordered-containers >= 0.2.7
, xml-conduit >= 1.2
, xml-types >= 0.3.4
diff --git a/src/Network/AWS/Compat/Locale.hs b/src/Network/AWS/Compat/Locale.hs
index e86999e..b4d4bf9 100644
--- a/src/Network/AWS/Compat/Locale.hs
+++ b/src/Network/AWS/Compat/Locale.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Network.AWS.Compat.Locale
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Compat/Time.hs b/src/Network/AWS/Compat/Time.hs
index 7a31dd0..6ebabc0 100644
--- a/src/Network/AWS/Compat/Time.hs
+++ b/src/Network/AWS/Compat/Time.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Network.AWS.Compat.Time
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/Base64.hs b/src/Network/AWS/Data/Base64.hs
index 2f9f3a3..f2310e4 100644
--- a/src/Network/AWS/Data/Base64.hs
+++ b/src/Network/AWS/Data/Base64.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.Data.Base64
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
@@ -19,6 +19,7 @@ import Data.Aeson.Types
import qualified Data.Attoparsec.Text as AText
import qualified Data.ByteArray.Encoding as BA
import Data.Data (Data, Typeable)
+import Data.Hashable
import qualified Data.Text.Encoding as Text
import GHC.Generics (Generic)
import Network.AWS.Data.Body
@@ -36,6 +37,8 @@ import Network.AWS.Lens (Iso', iso)
newtype Base64 = Base64 { unBase64 :: ByteString }
deriving (Eq, Read, Ord, Data, Typeable, Generic)
+instance Hashable Base64
+
_Base64 :: Iso' Base64 ByteString
_Base64 = iso unBase64 Base64
diff --git a/src/Network/AWS/Data/Body.hs b/src/Network/AWS/Data/Body.hs
index f2ccae5..33f3514 100644
--- a/src/Network/AWS/Data/Body.hs
+++ b/src/Network/AWS/Data/Body.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Data.Body
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/ByteString.hs b/src/Network/AWS/Data/ByteString.hs
index fd501f6..d0e8b32 100644
--- a/src/Network/AWS/Data/ByteString.hs
+++ b/src/Network/AWS/Data/ByteString.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.Data.ByteString
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/Crypto.hs b/src/Network/AWS/Data/Crypto.hs
index 2285f04..ab4ce40 100644
--- a/src/Network/AWS/Data/Crypto.hs
+++ b/src/Network/AWS/Data/Crypto.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.Data.Crypto
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/Headers.hs b/src/Network/AWS/Data/Headers.hs
index 41ed488..59ccecb 100644
--- a/src/Network/AWS/Data/Headers.hs
+++ b/src/Network/AWS/Data/Headers.hs
@@ -6,7 +6,7 @@
-- |
-- Module : Network.AWS.Data.Headers
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/JSON.hs b/src/Network/AWS/Data/JSON.hs
index 32e3950..4f58c2b 100644
--- a/src/Network/AWS/Data/JSON.hs
+++ b/src/Network/AWS/Data/JSON.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Network.AWS.Data.JSON
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/List1.hs b/src/Network/AWS/Data/List1.hs
index 7085db1..d91c3a8 100644
--- a/src/Network/AWS/Data/List1.hs
+++ b/src/Network/AWS/Data/List1.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.Data.List1
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
@@ -22,6 +22,7 @@ import Data.Coerce
import Data.Data (Data, Typeable)
import Data.Foldable (Foldable)
import qualified Data.Foldable as Fold
+import Data.Hashable
import Data.List.NonEmpty (NonEmpty (..))
import qualified Data.List.NonEmpty as NonEmpty
import Data.Semigroup
@@ -70,6 +71,8 @@ instance FromJSON a => FromJSON (List1 a) where
instance ToJSON a => ToJSON (List1 a) where
toJSON = toJSON . toList
+instance Hashable a => Hashable (List1 a)
+
parseXMLList1 :: FromXML a
=> Text
-> [Node]
diff --git a/src/Network/AWS/Data/Log.hs b/src/Network/AWS/Data/Log.hs
index a685f10..882a62a 100644
--- a/src/Network/AWS/Data/Log.hs
+++ b/src/Network/AWS/Data/Log.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.Data.Log
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/Map.hs b/src/Network/AWS/Data/Map.hs
index e8ee488..ed11740 100644
--- a/src/Network/AWS/Data/Map.hs
+++ b/src/Network/AWS/Data/Map.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.Data.Map
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
@@ -69,6 +69,8 @@ type role Map nominal representational
_Map :: (Coercible a b, Coercible b a) => Iso' (Map k a) (HashMap k b)
_Map = iso (coerce . toMap) (Map . coerce)
+instance (Hashable k, Hashable v) => Hashable (Map k v)
+
instance (Hashable k, Eq k) => IsList (Map k v) where
type Item (Map k v) = (k, v)
diff --git a/src/Network/AWS/Data/Numeric.hs b/src/Network/AWS/Data/Numeric.hs
index 13039c9..24078f4 100644
--- a/src/Network/AWS/Data/Numeric.hs
+++ b/src/Network/AWS/Data/Numeric.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.Data.Numeric
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
@@ -16,6 +16,7 @@ module Network.AWS.Data.Numeric where
import Control.Monad
import Data.Aeson.Types
import Data.Data (Data, Typeable)
+import Data.Hashable
import Data.Monoid
import Data.Scientific
import GHC.Generics (Generic)
@@ -50,6 +51,9 @@ newtype Nat = Nat { unNat :: Natural }
_Nat :: Iso' Nat Natural
_Nat = iso unNat Nat
+instance Hashable Nat where
+ hashWithSalt salt (Nat n) = hashWithSalt salt (toInteger n)
+
instance FromJSON Nat where
parseJSON = parseJSON >=> go
where
diff --git a/src/Network/AWS/Data/Path.hs b/src/Network/AWS/Data/Path.hs
index b1cb8c2..8fc4e1e 100644
--- a/src/Network/AWS/Data/Path.hs
+++ b/src/Network/AWS/Data/Path.hs
@@ -8,7 +8,7 @@
-- |
-- Module : Network.AWS.Data.Path
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/Query.hs b/src/Network/AWS/Data/Query.hs
index ea35b12..eee4741 100644
--- a/src/Network/AWS/Data/Query.hs
+++ b/src/Network/AWS/Data/Query.hs
@@ -11,7 +11,7 @@
-- |
-- Module : Network.AWS.Data.Query
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/Sensitive.hs b/src/Network/AWS/Data/Sensitive.hs
index 789e564..fecb214 100644
--- a/src/Network/AWS/Data/Sensitive.hs
+++ b/src/Network/AWS/Data/Sensitive.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.Data.Sensitive
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
@@ -13,6 +13,7 @@
module Network.AWS.Data.Sensitive where
import Data.Data (Data, Typeable)
+import Data.Hashable
import Data.Monoid
import Data.String
import GHC.Generics (Generic)
@@ -47,5 +48,7 @@ newtype Sensitive a = Sensitive { desensitise :: a }
instance Show (Sensitive a) where
show = const "******"
+instance Hashable a => Hashable (Sensitive a)
+
_Sensitive :: Iso' (Sensitive a) a
_Sensitive = iso desensitise Sensitive
diff --git a/src/Network/AWS/Data/Text.hs b/src/Network/AWS/Data/Text.hs
index bbda558..ea368d9 100644
--- a/src/Network/AWS/Data/Text.hs
+++ b/src/Network/AWS/Data/Text.hs
@@ -6,7 +6,7 @@
-- |
-- Module : Network.AWS.Data.Text
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Data/Time.hs b/src/Network/AWS/Data/Time.hs
index c1482f4..d98fb1f 100644
--- a/src/Network/AWS/Data/Time.hs
+++ b/src/Network/AWS/Data/Time.hs
@@ -13,7 +13,7 @@
-- |
-- Module : Network.AWS.Data.Time
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
@@ -40,11 +40,12 @@ import Data.Attoparsec.Text (Parser)
import qualified Data.Attoparsec.Text as AText
import qualified Data.ByteString.Char8 as BS
import Data.Data (Data, Typeable)
+import Data.Hashable
import Data.Monoid
import Data.Scientific
import Data.Tagged
import qualified Data.Text as Text
-import Data.Time (UTCTime)
+import Data.Time (Day (..), UTCTime (..))
import Data.Time.Clock.POSIX
import Data.Time.Format (formatTime)
import GHC.Generics (Generic)
@@ -80,6 +81,11 @@ deriving instance Ord (Time a)
deriving instance Read (Time a)
deriving instance Show (Time a)
+instance Hashable (Time a) where
+ hashWithSalt salt (Time (UTCTime (ModifiedJulianDay d) t)) =
+ salt `hashWithSalt` d
+ `hashWithSalt` toRational t
+
_Time :: Iso' (Time a) UTCTime
_Time = iso (\(Time t) -> t) Time
diff --git a/src/Network/AWS/Data/XML.hs b/src/Network/AWS/Data/XML.hs
index 24d98eb..ee204f2 100644
--- a/src/Network/AWS/Data/XML.hs
+++ b/src/Network/AWS/Data/XML.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.Data.XML
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Endpoint.hs b/src/Network/AWS/Endpoint.hs
index 67918a5..a9eba1d 100644
--- a/src/Network/AWS/Endpoint.hs
+++ b/src/Network/AWS/Endpoint.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.Types
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Error.hs b/src/Network/AWS/Error.hs
index 686c419..8202f17 100644
--- a/src/Network/AWS/Error.hs
+++ b/src/Network/AWS/Error.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.Error
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Lens.hs b/src/Network/AWS/Lens.hs
index d0c0a5e..d918406 100644
--- a/src/Network/AWS/Lens.hs
+++ b/src/Network/AWS/Lens.hs
@@ -1,6 +1,6 @@
-- |
-- Module : Network.AWS.Lens
--- Copyright : (c) 2013-2015 Brendan Hay <brendan.g.hay@gmail.com>
+-- Copyright : (c) 2013-2016 Brendan Hay <brendan.g.hay@gmail.com>
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Pager.hs b/src/Network/AWS/Pager.hs
index 4684a65..e13d701 100644
--- a/src/Network/AWS/Pager.hs
+++ b/src/Network/AWS/Pager.hs
@@ -3,7 +3,7 @@
-- |
-- Module : Network.AWS.Pager
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Prelude.hs b/src/Network/AWS/Prelude.hs
index dd0329c..7640cce 100644
--- a/src/Network/AWS/Prelude.hs
+++ b/src/Network/AWS/Prelude.hs
@@ -1,6 +1,6 @@
-- |
-- Module : Network.AWS.Prelude
--- Copyright : (c) 2013-2015 Brendan Hay <brendan.g.hay@gmail.com>
+-- Copyright : (c) 2013-2016 Brendan Hay <brendan.g.hay@gmail.com>
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Request.hs b/src/Network/AWS/Request.hs
index bf70255..67e041d 100644
--- a/src/Network/AWS/Request.hs
+++ b/src/Network/AWS/Request.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.Request
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Response.hs b/src/Network/AWS/Response.hs
index 815caae..c34b504 100644
--- a/src/Network/AWS/Response.hs
+++ b/src/Network/AWS/Response.hs
@@ -6,7 +6,7 @@
-- |
-- Module : Network.AWS.Response
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Sign/V2.hs b/src/Network/AWS/Sign/V2.hs
index 5b7fc6f..18ea627 100644
--- a/src/Network/AWS/Sign/V2.hs
+++ b/src/Network/AWS/Sign/V2.hs
@@ -6,7 +6,7 @@
-- |
-- Module : Network.AWS.Sign.V2
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Sign/V4.hs b/src/Network/AWS/Sign/V4.hs
index aa63fe7..f1677ff 100644
--- a/src/Network/AWS/Sign/V4.hs
+++ b/src/Network/AWS/Sign/V4.hs
@@ -11,7 +11,7 @@
-- |
-- Module : Network.AWS.Sign.V4
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
@@ -30,7 +30,7 @@ import Network.AWS.Data.ByteString
import Network.AWS.Data.Headers
import Network.AWS.Data.Query
import Network.AWS.Data.Time
-import Network.AWS.Lens ((.~), (<>~))
+import Network.AWS.Lens ((%~), (.~), (<>~))
import Network.AWS.Request
import Network.AWS.Sign.V4.Base
import Network.AWS.Sign.V4.Chunked
@@ -58,7 +58,8 @@ presign ex rq a r ts = signRequest meta mempty auth
digest = Tag "UNSIGNED-PAYLOAD"
- prepare = rqHeaders .~ []
+ prepare = rqHeaders %~ ( hdr hHost (_endpointHost end) )
+ end = _svcEndpoint (_rqService rq) r
sign :: Algorithm a
sign rq a r ts =
diff --git a/src/Network/AWS/Sign/V4/Base.hs b/src/Network/AWS/Sign/V4/Base.hs
index 331c28e..98f8767 100644
--- a/src/Network/AWS/Sign/V4/Base.hs
+++ b/src/Network/AWS/Sign/V4/Base.hs
@@ -11,7 +11,7 @@
-- |
-- Module : Network.AWS.Sign.V4.Base
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Sign/V4/Chunked.hs b/src/Network/AWS/Sign/V4/Chunked.hs
index ba5b876..9bfe9fe 100644
--- a/src/Network/AWS/Sign/V4/Chunked.hs
+++ b/src/Network/AWS/Sign/V4/Chunked.hs
@@ -14,7 +14,7 @@
-- |
-- Module : Network.AWS.Sign.V4.Chunked
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Types.hs b/src/Network/AWS/Types.hs
index 0bf601d..93841a8 100644
--- a/src/Network/AWS/Types.hs
+++ b/src/Network/AWS/Types.hs
@@ -11,7 +11,7 @@
-- |
-- Module : Network.AWS.Types
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/src/Network/AWS/Waiter.hs b/src/Network/AWS/Waiter.hs
index bb6b71c..67f55f8 100644
--- a/src/Network/AWS/Waiter.hs
+++ b/src/Network/AWS/Waiter.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.Waiter
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : provisional
diff --git a/test/Main.hs b/test/Main.hs
index 88ec6e1..359f3d3 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Arbitrary.hs b/test/Test/AWS/Arbitrary.hs
index 78675cb..a4115e0 100644
--- a/test/Test/AWS/Arbitrary.hs
+++ b/test/Test/AWS/Arbitrary.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Test.AWS.Arbitrary
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Data/Base64.hs b/test/Test/AWS/Data/Base64.hs
index 60b6a1d..36df4d9 100644
--- a/test/Test/AWS/Data/Base64.hs
+++ b/test/Test/AWS/Data/Base64.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Test.AWS.Data.Base64
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Data/List.hs b/test/Test/AWS/Data/List.hs
index e11c6c6..537159f 100644
--- a/test/Test/AWS/Data/List.hs
+++ b/test/Test/AWS/Data/List.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Test.AWS.Data.List
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Data/Maybe.hs b/test/Test/AWS/Data/Maybe.hs
index 97e0d9d..807f610 100644
--- a/test/Test/AWS/Data/Maybe.hs
+++ b/test/Test/AWS/Data/Maybe.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Test.AWS.Data.Maybe
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Data/Numeric.hs b/test/Test/AWS/Data/Numeric.hs
index 3c7a878..e5f0764 100644
--- a/test/Test/AWS/Data/Numeric.hs
+++ b/test/Test/AWS/Data/Numeric.hs
@@ -3,7 +3,7 @@
-- |
-- Module : Test.AWS.Data.Numeric
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Data/Path.hs b/test/Test/AWS/Data/Path.hs
index 55f393d..ac1071c 100644
--- a/test/Test/AWS/Data/Path.hs
+++ b/test/Test/AWS/Data/Path.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Test.AWS.Data.Path
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Data/Time.hs b/test/Test/AWS/Data/Time.hs
index 24d4077..c3a56cc 100644
--- a/test/Test/AWS/Data/Time.hs
+++ b/test/Test/AWS/Data/Time.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Test.AWS.Data.Time
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Error.hs b/test/Test/AWS/Error.hs
index d4e360c..159331e 100644
--- a/test/Test/AWS/Error.hs
+++ b/test/Test/AWS/Error.hs
@@ -3,7 +3,7 @@
-- |
-- Module : Test.AWS.Error
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Sign/V4.hs b/test/Test/AWS/Sign/V4.hs
index 35814cf..134edd9 100644
--- a/test/Test/AWS/Sign/V4.hs
+++ b/test/Test/AWS/Sign/V4.hs
@@ -3,7 +3,7 @@
-- |
-- Module : Test.AWS.Sign.V$
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental
diff --git a/test/Test/AWS/Util.hs b/test/Test/AWS/Util.hs
index c437cf9..fdbbfdd 100644
--- a/test/Test/AWS/Util.hs
+++ b/test/Test/AWS/Util.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Test.AWS.Util
--- Copyright : (c) 2013-2015 Brendan Hay
+-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : experimental