%veer events now use cords instead of tapes?

pkg/king/app/Main.hs

@@ -270,15 +270,12 @@ tryDoStuff shipPath = runInBoundThread $ do
     let pillPath = "/home/benjamin/r/urbit/bin/solid.pill"
         ship     = zod
 
-    -- collectAllFx "/home/benjamin/r/urbit/s/testnet-zod/"
-
     -- tryParseEvents "/home/benjamin/r/urbit/s/zod/.urb/log" 1
     -- tryParseEvents "/home/benjamin/r/urbit/s/testnet-zod/.urb/log" 1
 
     -- tryParseFX "/home/benjamin/zod-fx"         1 100000000
     -- tryParseFX "/home/benjamin/testnet-zod-fx" 1 100000000
 
-    -- tryBootFromPill pillPath shipPath ship
     -- tryResume shipPath
     tryPlayShip shipPath
     -- tryFullReplay shipPath

pkg/king/lib/Arvo/Event.hs

@@ -262,12 +262,12 @@ data VaneName
   deriving (Eq, Ord, Show, Enum, Bounded)
 
 data ZuseEv
-    = ZEVeer () Cord Path BigTape
+    = ZEVeer () Cord Path BigCord
     | ZEVoid Void
   deriving (Eq, Ord, Show)
 
 data VaneEv
-    = VEVeer (VaneName, ()) Cord Path BigTape
+    = VEVeer (VaneName, ()) Cord Path BigCord
     | VEVoid Void
   deriving (Eq, Ord, Show)
 

pkg/king/lib/Noun/Conversions.hs

@@ -4,7 +4,8 @@ module Noun.Conversions
   ( Nullable(..), Jammed(..), AtomCell(..)
   , Word128, Word256, Word512
   , Bytes(..), Octs(..), File(..)
-  , Cord(..), Knot(..), Term(..), Tape(..), BigTape(..), Tour(..)
+  , Cord(..), Knot(..), Term(..), Tape(..), Tour(..)
+  , BigTape(..), BigCord(..)
   , Wall
   , UD(..), UV(..)
   , Mug(..), Path(..), EvilPath(..), Ship(..)
@@ -344,6 +345,15 @@ instance FromNoun Tape where
 type Wall = [Tape]
 
 
+-- Big Cord -- Don't Print -----------------------------------------------------
+
+newtype BigCord = BigCord Cord
+  deriving newtype (Eq, Ord, ToNoun, FromNoun, IsString)
+
+instance Show BigCord where
+  show (BigCord (Cord t)) = show (take 32 t <> "...")
+
+
 -- Big Tape -- Don't Print -----------------------------------------------------
 
 newtype BigTape = BigTape Tape