urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 08:32:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #3230 from urbit/pp/ames-slow-startup

Browse Source 
king: ames: add stderr when sending before having turfs
This commit is contained in:
pilfer-pandex 2020-08-10 17:47:43 -07:00 committed by GitHub
commit 8e04cd12f0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/hs/urbit-king/lib/Urbit/Vere/Ames.hs
View File

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