king: Don't hard error on injected event failure.

This commit is contained in:
Elliot Glaysher 2020-10-26 10:57:07 -04:00
parent 5cdeecc627
commit 759ac51f27

View File

@ -379,7 +379,8 @@ pier (serf, log) vSlog startedSig injected = do
io inject
takeMVar okaySig >>= \case
Left goof -> error ("Goof in injected event: " <> show goof)
Left goof -> logError $ display @Text ("Goof in injected event: " <>
tshow goof)
Right () -> pure ()