safe-money-xmlbf 0.1 → 0.1.1
raw patch · 4 files changed
+14/−10 lines, 4 filesdep ~safe-moneyPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: safe-money
API changes (from Hackage documentation)
Files
- changelog.md +7/−2
- safe-money-xmlbf.cabal +2/−2
- src/Money/Xmlbf.hs +3/−2
- test/Main.hs +2/−4
changelog.md view
@@ -1,4 +1,9 @@+# Version 0.1.1++* Require `safe-money>=0.8`.++ # Version 0.1 -* This first release of @safe-money-xmlbf@ includes the same @xmlbf@- support and tests that were present in @safe-money-0.6@.+* This first release of `safe-money-xmlbf` includes the same `xmlbf`+ support and tests that were present in `safe-money-0.6`.
safe-money-xmlbf.cabal view
@@ -1,5 +1,5 @@ name: safe-money-xmlbf-version: 0.1+version: 0.1.1 license: BSD3 license-file: LICENSE copyright: Copyright (c) Renzo Carbonara 2016-2018@@ -32,7 +32,7 @@ ghc-options: -Wall -O2 build-depends: base (>=4.8 && <5.0),- safe-money,+ safe-money >=0.8, text, xmlbf exposed-modules:
src/Money/Xmlbf.hs view
@@ -78,7 +78,7 @@ -- | Compatible with 'Money.Discrete'' instance Xmlbf.ToXml Money.SomeDiscrete where toXml = \sd ->- let r = Money.someDiscreteScale sd+ let r = Money.scaleToRational (Money.someDiscreteScale sd) as = [ ("c", Money.someDiscreteCurrency sd) , ("n", T.pack (show (numerator r))) , ("d", T.pack (show (denominator r)))@@ -93,7 +93,8 @@ d <- Xmlbf.pRead =<< Xmlbf.pAttr "d" when (d == 0) (fail "denominator is zero") a <- Xmlbf.pRead =<< Xmlbf.pAttr "a"- maybe empty pure (Money.mkSomeDiscrete c (n % d) a)+ maybe empty pure (Money.mkSomeDiscrete c <$> Money.scaleFromRational (n % d)+ <*> pure a) -- | Compatible with 'Money..SomeExchangeRate' --
test/Main.hs view
@@ -58,10 +58,8 @@ testCurrencyUnits :: Tasty.TestTree testCurrencyUnits = Tasty.testGroup "Currency units"- [ testDiscrete (Proxy :: Proxy "BTC") (Proxy :: Proxy "BTC")- , testDiscrete (Proxy :: Proxy "BTC") (Proxy :: Proxy "satoshi")+ [ testDiscrete (Proxy :: Proxy "BTC") (Proxy :: Proxy "satoshi") , testDiscrete (Proxy :: Proxy "BTC") (Proxy :: Proxy "bitcoin")- , testDiscrete (Proxy :: Proxy "USD") (Proxy :: Proxy "USD") , testDiscrete (Proxy :: Proxy "USD") (Proxy :: Proxy "cent") , testDiscrete (Proxy :: Proxy "USD") (Proxy :: Proxy "dollar") , testDiscrete (Proxy :: Proxy "VUV") (Proxy :: Proxy "vatu")@@ -115,7 +113,7 @@ testDiscrete :: forall (currency :: Symbol) (unit :: Symbol)- . ( Money.GoodScale (Money.Scale currency unit)+ . ( Money.GoodScale (Money.UnitScale currency unit) , KnownSymbol currency , KnownSymbol unit ) => Proxy currency