Merge pull request #167 from f-o-a-m/packages.dhall-bump

bump packages.dhall to new eth-core
f-o-a-m · Sep 8, 2023 · eec2556 · eec2556
2 parents 14f0f42 + 1282d00
commit eec2556
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/packages.dhall b/packages.dhall
@@ -1,6 +1,6 @@
 let upstream =
-      https://github.com/f-o-a-m/package-sets/raw/feaf98cc4ca1b39ad9ed04f10a473759cbc2114e/purs-0.15.7-web3.dhall
-        sha256:2d868539460c47c2bf5ecf4c6b68c3ea3162849f2da9cd3f263b740299448d8f
+      https://raw.githubusercontent.com/f-o-a-m/package-sets/09b71674a327f7601276846c1afb537342bb57ff/purs-0.15.7-web3.dhall
+        sha256:7e32f0c65a7b5d334ee98d7fda1d7d3a557b6b478421f545694bd8e1cd4d16ac
 
 let overrides = {=}
 

diff --git a/src/Network/Ethereum/Web3/Types/TokenUnit.purs b/src/Network/Ethereum/Web3/Types/TokenUnit.purs
@@ -26,7 +26,7 @@ import Data.Maybe (fromJust)
 import Data.Ring.Module (class LeftModule, (^*))
 import Data.String (joinWith)
 import Data.Unfoldable (replicate)
-import Network.Ethereum.Core.BigNumber (BigNumber, decimal, floorBigNumber, parseBigNumber, divide)
+import Network.Ethereum.Core.BigNumber (BigNumber, decimal, parseBigNumber)
 import Partial.Unsafe (unsafePartial)
 import Simple.JSON (class ReadForeign, class WriteForeign, writeImpl)
 import Type.Proxy (Proxy(..))
@@ -79,11 +79,11 @@ class TokenUnitSpec (a :: TokenUnitK) where
   divider :: forall proxy. proxy a -> BigNumber
 
 formatValue :: forall a. TokenUnitSpec a => Value a -> String
-formatValue v = show $ toMinorUnit v `divide` divider (Proxy :: Proxy a)
+formatValue v = show $ toMinorUnit v `div` divider (Proxy :: Proxy a)
 
 -- | Convert a big number into value, first using `floor` function to take the integer part
 mkValue :: forall a. TokenUnitSpec a => BigNumber -> Value a
-mkValue = Value <<< floorBigNumber <<< (mul (divider (Proxy :: Proxy a)))
+mkValue = Value <<< (mul (divider (Proxy :: Proxy a)))
 
 foreign import data NoPay :: TokenK -> TokenUnitK