github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 21:31:48 +03:00
Code Issues Projects Releases Wiki Activity

Rename sink to logSink.

Browse Source
This commit is contained in:
Rob Rix 2017-07-21 15:43:42 -04:00
parent d1babd0fb7
commit 580b817b9f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Semantic/Task.hs
View File

@ -161,7 +161,7 @@ runTaskWithOptions :: Options -> Task a -> IO a
runTaskWithOptions options task = do
options <- configureOptionsForHandle stderr options
logQueue <- newTMQueueIO
logging <- async (sink options logQueue)
logging <- async (logSink options logQueue)
result <- runFreerM (\ task -> case task of
ReadBlobs source -> pure <$ writeLog (Info "ReadBlobs") <*> either Files.readBlobsFromHandle (traverse (uncurry Files.readFile)) source
@ -178,12 +178,12 @@ runTaskWithOptions options task = do
atomically (closeTMQueue logQueue)
wait logging
pure result
where sink options queue = do
where logSink options queue = do
message <- atomically (readTMQueue queue)
case message of
Just message -> do
B.hPutStr stderr (formatMessage message)
sink options queue
logSink options queue
_ -> pure ()
runParser :: Options -> Parser term -> Blob -> Task term