king: ames: add stderr when sending before having turfs

This commit is contained in:
pilfer-pandex 2020-07-30 15:47:38 -07:00
parent 5e65abcb7a
commit 1691c984dd

View File

@ -229,7 +229,7 @@ ames env who isFake enqueueEv stderr = (initialEvents, runAmes)
NewtEfSend (_id, ()) dest (MkBytes bs) -> do
atomically (readTVar aTurfs) >>= \case
Nothing -> pure ()
Nothing -> stderr "ames: send before turfs" >> pure ()
Just turfs -> sendPacket drv mode dest bs
sendPacket :: AmesDrv -> NetworkMode -> AmesDest -> ByteString -> RIO e ()