ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 19:55:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

king: fix noun derivation

Browse Source
This commit is contained in:
ryjm 2021-06-09 01:50:34 -04:00
parent 148fb1b45c
commit 8ad9d022a1
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/hs/urbit-king/lib/Urbit/Arvo/Event.hs
View File

@ -127,7 +127,7 @@ data Germ = Germ
{ gLife :: Life
, gRing :: Ring
}
deriving (Eq, Show)
deriving (Eq, Ord, Show)
data Feed
= Feed0 Seed
@ -273,8 +273,8 @@ deriveNoun ''BoatEv
-- Boat Events -----------------------------------------------------------------
data JaelEv
= JaelEvRekey Life Ring
deriving (Eq, Ord, Show)
= JaelEvRekey () (Life, Ring)
deriving (Eq, Show)
deriveNoun ''JaelEv

2
pkg/hs/urbit-king/lib/Urbit/Vere/Pier.hs
View File

@ -104,7 +104,7 @@ genBootSeq ship PillPill {..} lite boot feed = do
extraKeys = case feed of
Feed0 _ -> []
Feed1 Seeds{..} -> fmap rekey gFeed
rekey Germ{..} = EvBlip $ BlipEvJael $ JaelEvRekey gLife gRing
rekey Germ{..} = EvBlip $ BlipEvJael $ JaelEvRekey () (gLife, gRing)
-- Write to the log. -----------------------------------------------------------