Accounting for an optional leading sign when parsing non-natural numbers

Fixes brendanhay#83.
dysinger · Feb 27, 2015 · f4272ed · f4272ed
1 parent 39965ae
commit f4272ed
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/core/src/Network/AWS/Data/Internal/Text.hs b/core/src/Network/AWS/Data/Internal/Text.hs
@@ -59,11 +59,11 @@ class FromText a where
 
 instance FromText Text       where parser = AText.takeText
 instance FromText ByteString where parser = Text.encodeUtf8 <$> AText.takeText
-instance FromText Int        where parser = AText.decimal
-instance FromText Integer    where parser = AText.decimal
-instance FromText Scientific where parser = AText.scientific
+instance FromText Int        where parser = AText.signed AText.decimal
+instance FromText Integer    where parser = AText.signed AText.decimal
+instance FromText Scientific where parser = AText.signed AText.scientific
 instance FromText Natural    where parser = AText.decimal
-instance FromText Double     where parser = AText.rational
+instance FromText Double     where parser = AText.signed AText.rational
 
 instance FromText Bool where
     parser = matchCI "false" False <|> matchCI "true" True