king can now generate a pill and boot with it.

pkg/king/lib/Arvo/Effect.hs

@@ -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

pkg/king/lib/Arvo/Event.hs

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

pkg/king/lib/Vere/Serf.hs

@@ -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
 
 {-