add simple conversion function to '../Types/Coin.hs' from Coin to int…

…egrals
cardano-foundation · Jan 26, 2021 · cfabbbd · cfabbbd
1 parent fad9634
commit cfabbbd
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Primitive/Types/Coin.hs b/lib/core/src/Cardano/Wallet/Primitive/Types/Coin.hs
@@ -14,6 +14,8 @@ module Cardano.Wallet.Primitive.Types.Coin
     ( -- * Type
       Coin (..)
     , coinQuantity
+    , coinToInteger
+    , coinToNatural
 
       -- * Checks
     , isValidCoin
@@ -100,6 +102,12 @@ instance Buildable Coin where
 coinQuantity :: Integral a => Coin -> Quantity n a
 coinQuantity (Coin n) = Quantity (fromIntegral n)
 
+coinToInteger :: Coin -> Integer
+coinToInteger = fromIntegral . unCoin
+
+coinToNatural :: Coin -> Natural
+coinToNatural = fromIntegral . unCoin
+
 {-------------------------------------------------------------------------------
                                      Checks
 -------------------------------------------------------------------------------}