Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

made logger use a bit more partial function application

Browse source
This commit is contained in:
Pagwin 2025-11-16 14:54:39 -05:00
parent 42bc374d39
commit 3aacfb1d13
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
app/Logger.hs
View file

@ -27,7 +27,7 @@ instance Logger IO where
logDebug = logIO
logState :: (Monad m) => T.Text -> StateT T.Text m ()
logState msg = modify (\log -> log <> msg <> "\n")
logState msg = modify (<> msg <> "\n")
instance (Monad m) => Logger (StateT T.Text m) where
logError = logState
@ -36,7 +36,7 @@ instance (Monad m) => Logger (StateT T.Text m) where
logDebug = logState
logStateStr :: (Monad m) => T.Text -> StateT String m ()
logStateStr msg = modify (\log -> log <> T.unpack msg <> "\n")
logStateStr msg = modify (<> T.unpack msg <> "\n")
instance (Monad m) => Logger (StateT String m) where
logError = logStateStr