mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 11:24:21 +03:00
king can now generate a pill and boot with it.
This commit is contained in:
parent
ad4ff58682
commit
97c9a8c9f1
@ -129,7 +129,19 @@ data Blit
|
||||
| Sag Path Noun
|
||||
| Sav Path Atom
|
||||
| Url Cord
|
||||
deriving (Eq, Ord, Show)
|
||||
deriving (Eq, Ord)
|
||||
|
||||
-- Manual instance to not save the noun/atom in Sag/Sav, because these can be
|
||||
-- megabytes and makes king hang.
|
||||
instance Show Blit where
|
||||
show (Bel ()) = "Bel ()"
|
||||
show (Clr ()) = "Clr ()"
|
||||
show (Hop x) = "Hop " ++ (show x)
|
||||
show (Lin c) = "Lin " ++ (show c)
|
||||
show (Mor ()) = "Mor ()"
|
||||
show (Sag path _) = "Sag " ++ (show path)
|
||||
show (Sav path _) = "Sav " ++ (show path)
|
||||
show (Url c) = "Url " ++ (show c)
|
||||
|
||||
{-
|
||||
%blip -- TODO
|
||||
|
@ -154,6 +154,7 @@ deriveNoun ''AmesEv
|
||||
data ArvoEv
|
||||
= ArvoEvWhom () Ship
|
||||
| ArvoEvWack () Word512
|
||||
| ArvoEvWarn Path Noun
|
||||
deriving (Eq, Ord, Show)
|
||||
|
||||
deriveNoun ''ArvoEv
|
||||
|
@ -308,7 +308,7 @@ recvPlea w = do
|
||||
recvPlea w
|
||||
PSlog _ pri t -> do printTank (sStderr w) pri t
|
||||
recvPlea w
|
||||
_ -> do logTrace $ display ("recvPlea got: " <> tshow p)
|
||||
_ -> do logTrace "recvPlea got something else"
|
||||
pure p
|
||||
|
||||
{-
|
||||
|
Loading…
Reference in New Issue
Block a user