steffenomak/ris-utils
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Switch back to specific version

Browse Source
This commit is contained in:
Stefan Risberg 2023-12-19 00:30:22 +01:00
parent 480073894b
commit d2dd96b709
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Effects/Log.hs
View File

@ -57,7 +57,7 @@ instance LogData LB.ByteString where
toLog = toLog . LT.decodeUtf8With T.lenientDecode toLog = toLog . LT.decodeUtf8With T.lenientDecode
data Log :: Effect where data Log :: Effect where
Log :: (LogData a) => Severity -> a -> Log m () Log :: Severity -> T.Builder -> Log m ()
makeEffect ''Log makeEffect ''Log
@ -84,7 +84,7 @@ runLogWithQsem lock logger e = do
lock' <- ask lock' <- ask
bracket_ (waitQSem lock') (signalQSem lock') $ do bracket_ (waitQSem lock') (signalQSem lock') $ do
t <- currentTimeB t <- currentTimeB
liftIO $ cmap (addTime t . fmtMessage) logger <& toLog msg `WithSeverity` sev liftIO $ cmap (addTime t . fmtMessage) logger <& msg `WithSeverity` sev
) )
e e