compiles with new web3 (#58)

f-o-a-m · Apr 22, 2018 · 71b4c0c · 71b4c0c
1 parent 97c573c
commit 71b4c0c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/bower.json b/bower.json
@@ -8,8 +8,8 @@
   ],
   "dependencies": {
     "purescript-prelude": "^3.1.1",
-    "purescript-web3": "^0.21.0",
-    "purescript-web3-generator": "^0.21.0",
+    "purescript-web3": "^0.22.0",
+    "purescript-web3-generator": "^0.21.1",
     "purescript-js-date": "^5.1.0",
     "purescript-console": "^3.0.0",
     "purescript-errors": "^3.0.0",

diff --git a/src/Chanterelle/Internal/Deploy.purs b/src/Chanterelle/Internal/Deploy.purs
@@ -25,7 +25,7 @@ import Data.Lens.Index (ix)
 import Data.Maybe (isNothing, fromJust)
 import Data.StrMap as M
 import Network.Ethereum.Web3 (runWeb3)
-import Network.Ethereum.Web3.Types (NoPay, ETH, Web3, Address, BigNumber, HexString, TransactionOptions, TransactionReceipt(..), mkHexString, mkAddress)
+import Network.Ethereum.Web3.Types (NoPay, ETH, Web3, Address, BigNumber, HexString, TransactionOptions, TransactionReceipt(..), TransactionStatus(..), mkHexString, mkAddress)
 import Node.Encoding (Encoding(UTF8))
 import Node.FS.Aff (FS, readTextFile, writeTextFile)
 import Node.Path (FilePath)
@@ -89,7 +89,7 @@ getPublishedContractAddress txHash name = do
       let message = "No Transaction Receipt found for deployment " <> show txHash
       in throwError $ OnDeploymentError {name, message}
     Right (TransactionReceipt txReceipt) ->
-      if txReceipt.status == "0x0" || isNothing (unNullOrUndefined txReceipt.contractAddress)
+      if txReceipt.status == Failed || isNothing (unNullOrUndefined txReceipt.contractAddress)
          then
             let message = "Deployment failed to create contract, no address found or status 0x0 in receipt: " <> name
             in throwError $ OnDeploymentError {name, message}