ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 04:04:02 +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 { gLife :: Life
, gRing :: Ring , gRing :: Ring
} }
deriving (Eq, Show) deriving (Eq, Ord, Show)
data Feed data Feed
= Feed0 Seed = Feed0 Seed
@ -273,8 +273,8 @@ deriveNoun ''BoatEv
-- Boat Events ----------------------------------------------------------------- -- Boat Events -----------------------------------------------------------------
data JaelEv data JaelEv
= JaelEvRekey Life Ring = JaelEvRekey () (Life, Ring)
deriving (Eq, Ord, Show) deriving (Eq, Show)
deriveNoun ''JaelEv 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 extraKeys = case feed of
Feed0 _ -> [] Feed0 _ -> []
Feed1 Seeds{..} -> fmap rekey gFeed Feed1 Seeds{..} -> fmap rekey gFeed
rekey Germ{..} = EvBlip $ BlipEvJael $ JaelEvRekey gLife gRing rekey Germ{..} = EvBlip $ BlipEvJael $ JaelEvRekey () (gLife, gRing)
-- Write to the log. ----------------------------------------------------------- -- Write to the log. -----------------------------------------------------------