urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 09:21:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

king: fix dawn to use the wrapped ethereum server.

Browse Source
This commit is contained in:
Elliot Glaysher 2020-08-07 13:18:16 -04:00
parent ab15d5d6ac
commit 4c4712f4e8
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkg/hs/urbit-king/lib/Urbit/Vere/Dawn.hs
View File

@ -18,6 +18,8 @@ import Network.Ethereum.Api.Types hiding (blockNumber)
import Network.Ethereum.Web3 import Network.Ethereum.Web3
import Network.HTTP.Client.TLS import Network.HTTP.Client.TLS
import Data.Solidity.Prim.Address (fromHexString)
import qualified Crypto.Hash.SHA256 as SHA256 import qualified Crypto.Hash.SHA256 as SHA256
import qualified Crypto.Hash.SHA512 as SHA512 import qualified Crypto.Hash.SHA512 as SHA512
import qualified Crypto.Sign.Ed25519 as Ed import qualified Crypto.Sign.Ed25519 as Ed
@ -25,14 +27,13 @@ import qualified Data.Binary as B
import qualified Data.ByteArray as BA import qualified Data.ByteArray as BA
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as C import qualified Data.ByteString.Char8 as C
import qualified Network.Ethereum.Ens as Ens -- import qualified Network.Ethereum.Ens as Ens
import qualified Network.HTTP.Client as C import qualified Network.HTTP.Client as C
import qualified Urbit.Azimuth as AZ import qualified Urbit.Azimuth as AZ
import qualified Urbit.Ob as Ob import qualified Urbit.Ob as Ob
-- During boot, use the infura provider -- During boot, use the infura provider
provider = HttpProvider provider = HttpProvider "http://eth-mainnet.urbit.org:8545"
"https://mainnet.infura.io/v3/196a7f37c7d54211b4a07904ec73ad87"
-- Conversion Utilities -------------------------------------------------------- -- Conversion Utilities --------------------------------------------------------
@ -224,8 +225,16 @@ dawnVent dSeed@(Seed ship life ring oaf) = do
block <- blockNumber block <- blockNumber
putStrLn ("boot: ethereum block #" ++ tshow block) putStrLn ("boot: ethereum block #" ++ tshow block)
putStrLn "boot: retrieving azimuth contract" -- TODO: Eventually look up the contract from ENS. Right now, our infura
azimuth <- withAccount () $ Ens.resolve "azimuth.eth" -- node is filtering everything except for a very small set of contracts,
-- so just hard code the address.
--
-- putStrLn "boot: retrieving azimuth contract"
-- azimuth <- withAccount () $ Ens.resolve "azimuth.eth"
let azimuthAddr = "0x223c067f8cf28ae173ee5cafea60ca44c335fecb"
let azimuth = case fromHexString azimuthAddr of
Left _ -> error "Impossible"
Right x -> x
immediateSponsor <- validateShipAndGetImmediateSponsor block azimuth dSeed immediateSponsor <- validateShipAndGetImmediateSponsor block azimuth dSeed
dSponsor <- getSponsorshipChain block azimuth immediateSponsor dSponsor <- getSponsorshipChain block azimuth immediateSponsor