king can now generate a pill and boot with it.

This commit is contained in:
Elliot Glaysher 2019-09-03 16:38:14 -07:00
parent ad4ff58682
commit 97c9a8c9f1
3 changed files with 15 additions and 2 deletions

View File

@ -129,7 +129,19 @@ data Blit
| Sag Path Noun | Sag Path Noun
| Sav Path Atom | Sav Path Atom
| Url Cord | 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 %blip -- TODO

View File

@ -154,6 +154,7 @@ deriveNoun ''AmesEv
data ArvoEv data ArvoEv
= ArvoEvWhom () Ship = ArvoEvWhom () Ship
| ArvoEvWack () Word512 | ArvoEvWack () Word512
| ArvoEvWarn Path Noun
deriving (Eq, Ord, Show) deriving (Eq, Ord, Show)
deriveNoun ''ArvoEv deriveNoun ''ArvoEv

View File

@ -308,7 +308,7 @@ recvPlea w = do
recvPlea w recvPlea w
PSlog _ pri t -> do printTank (sStderr w) pri t PSlog _ pri t -> do printTank (sStderr w) pri t
recvPlea w recvPlea w
_ -> do logTrace $ display ("recvPlea got: " <> tshow p) _ -> do logTrace "recvPlea got something else"
pure p pure p
{- {-