summaryrefslogtreecommitdiff
path: root/test/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Main.hs')
-rw-r--r--test/Main.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/test/Main.hs b/test/Main.hs
index 9a38c7c..68db52f 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -58,10 +58,8 @@ testCurrencies =
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 @@ testExchange =
testDiscrete
:: forall (currency :: Symbol) (unit :: Symbol)
- . ( Money.GoodScale (Money.Scale currency unit)
+ . ( Money.GoodScale (Money.UnitScale currency unit)
, KnownSymbol currency
, KnownSymbol unit )
=> Proxy currency