Adding Hashable instance for custom S3 types

mgajda · Mar 20, 2016 · 85f8a08 · 85f8a08
1 parent 4d0f410
commit 85f8a08
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/amazonka-s3/src/Network/AWS/S3/Internal.hs b/amazonka-s3/src/Network/AWS/S3/Internal.hs
@@ -63,6 +63,8 @@ newtype BucketName = BucketName Text
         , ToLog
         )
 
+instance Hashable BucketName
+
 -- FIXME: Add the difference between weak + strong ETags and their respective
 -- equalities if necessary, see: https://github.com/brendanhay/amazonka/issues/76
 newtype ETag = ETag ByteString
@@ -84,6 +86,8 @@ newtype ETag = ETag ByteString
         , ToLog
         )
 
+instance Hashable ETag
+
 newtype ObjectVersionId = ObjectVersionId Text
     deriving
         ( Eq
@@ -103,6 +107,8 @@ newtype ObjectVersionId = ObjectVersionId Text
         , ToLog
         )
 
+instance Hashable ObjectVersionId
+
 newtype LocationConstraint = LocationConstraint { constraintRegion :: Region }
     deriving
         ( Eq
@@ -120,6 +126,8 @@ newtype LocationConstraint = LocationConstraint { constraintRegion :: Region }
 _LocationConstraint :: Iso' LocationConstraint Region
 _LocationConstraint = iso constraintRegion LocationConstraint
 
+instance Hashable LocationConstraint
+
 instance FromText LocationConstraint where
     parser = LocationConstraint <$> (parser <|> go)
       where
@@ -159,6 +167,8 @@ newtype ObjectKey = ObjectKey Text
         , ToLog
         )
 
+instance Hashable ObjectKey
+
 type Delimiter = Char
 
 _ObjectKey :: Iso' ObjectKey Text