Skip to content
Snippets Groups Projects
Unverified Commit caab7d1f authored by Jean-Paul Calderone's avatar Jean-Paul Calderone Committed by GitHub
Browse files

Merge pull request #38 from PrivateStorageio/37.amount-as-string

Read the integer value out of the amount string
parents 76391944 386fb87a
Branches
No related tags found
No related merge requests found
......@@ -143,7 +143,7 @@ instance FromJSON Charges where
parseJSON (Object v) = Charges <$>
v .: "token" <*>
v .: "voucher" <*>
v .: "amount" <*>
(read <$> v .: "amount") <*>
v .: "currency"
parseJSON _ = mzero
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment