Add FromText instances for Int64, String and Seconds

mgajda · Sep 6, 2018 · c0bdafc · c0bdafc
1 parent 248f7b2
commit c0bdafc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/core/src/Network/AWS/Data/Text.hs b/core/src/Network/AWS/Data/Text.hs
@@ -72,6 +72,9 @@ class FromText a where
 instance FromText Text where
     parser = A.takeText
 
+instance FromText String where
+    parser = Text.unpack <$> A.takeText
+
 instance FromText ByteString where
     parser = Text.encodeUtf8 <$> A.takeText
 
@@ -84,6 +87,9 @@ instance FromText Char where
 instance FromText Int where
     parser = A.signed A.decimal <* A.endOfInput
 
+instance FromText Int64 where
+    parser = A.signed A.decimal <* A.endOfInput
+
 instance FromText Integer where
     parser = A.signed A.decimal <* A.endOfInput
 

diff --git a/core/src/Network/AWS/Types.hs b/core/src/Network/AWS/Types.hs
@@ -762,6 +762,7 @@ newtype Seconds = Seconds Int
         , ToQuery
         , ToByteString
         , ToText
+        , FromText
         )
 
 instance Hashable Seconds