urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 05:22:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

re-enable king<->serf logs

Browse Source
This commit is contained in:
Benjamin Summers 2019-12-19 01:42:49 -08:00
parent a920e71aca
commit f77840c81b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkg/king/lib/Vere/Serf.hs
View File

@ -60,7 +60,7 @@ data Config = Config FilePath [Flag]
deriving (Show)
serf :: HasLogFunc e => Text -> RIO e ()
serf msg = pure () -- logInfo $ display ("SERF: " <> msg)
serf msg = logInfo $ display ("SERF: " <> msg)
-- Types -----------------------------------------------------------------------
@ -281,9 +281,9 @@ shutdown serf code = sendOrder serf (OExit code)
-}
recvPlea :: HasLogFunc e => Serf e -> RIO e Plea
recvPlea w = do
-- logDebug "(recvPlea) Waiting"
logDebug "(recvPlea) Waiting"
a <- recvAtom w
-- logDebug "(recvPlea) Got atom"
logDebug "(recvPlea) Got atom"
n <- fromRightExn (cue a) (const $ BadPleaAtom a)
p <- fromRightExn (fromNounErr n) (\(p,m) -> BadPleaNoun n p m)
@ -291,7 +291,7 @@ recvPlea w = do
recvPlea w
PSlog _ pri t -> do printTank (sStderr w) pri t
recvPlea w
_ -> do -- logTrace "recvPlea got something else"
_ -> do logTrace "recvPlea got something else"
pure p
{-
@ -313,7 +313,7 @@ sendWork w job =
do
sendOrder w (OWork job)
res <- loop
-- logTrace ("[sendWork] Got response")
logTrace ("[sendWork] Got response")
pure res
where
eId = jobId job
@ -451,7 +451,7 @@ toJobs ident eId =
await >>= \case
Nothing -> lift $ logTrace "[toJobs] no more jobs"
Just at -> do yield =<< lift (fromAtom at)
-- lift $ logTrace $ display ("[toJobs] " <> tshow eId)
lift $ logTrace $ display ("[toJobs] " <> tshow eId)
toJobs ident (eId+1)
where
isNock = eId <= fromIntegral (lifecycleLen ident)