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

Fix Dawn event to be the right shape.

Browse Source
This commit is contained in:
Elliot Glaysher 2019-10-01 15:25:02 -07:00
parent 0de09bb97b
commit 2dfa1606f4
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/king/lib/Arvo/Event.hs
View File

@ -137,7 +137,7 @@ data Snap = Snap (HoonMap Ship Public)
data Dawn = MkDawn
{ dSeed :: Seed
, dSponsor :: EthPoint
, dSponsor :: (Ship, EthPoint)
, dCzar :: HoonMap Ship (Rift, Life, Pass)
, dTurf :: [Turf]
, dBloq :: Bloq

4
pkg/king/lib/Vere/Dawn.hs
View File

@ -234,7 +234,9 @@ dawnVent dSeed@(Seed ship life ring oaf) = do
-- Retrieve the whole EthPoint for our sponsor
print $ "boot: retrieving sponsor " ++ (renderShip sponsorShip) ++
"'s public keys"
dSponsor <- retrievePoint block azimuth (fromIntegral sponsorShip)
sponsorPoint <- retrievePoint block azimuth (fromIntegral sponsorShip)
let dSponsor = (sponsorShip, sponsorPoint)
-- Retrieve the galaxy table [MUST FIX s/5/255/]
print "boot: retrieving galaxy table"