Fix the format of the %barn event
@@ -250,7 +250,7 @@ deriveNoun ''BehnEv
-- Newt Events -----------------------------------------------------------------
data NewtEv
- = NewtEvBarn (Atom, ()) ()
+ = NewtEvBarn (KingId, ()) ()
| NewtEvCrud Path Cord Tang
deriving (Eq, Ord, Show)
