From 3aacfb1d131db6cf3d33cc03efb4d45285048b2f Mon Sep 17 00:00:00 2001 From: Pagwin Date: Sun, 16 Nov 2025 14:54:39 -0500 Subject: [PATCH] made logger use a bit more partial function application --- app/Logger.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/Logger.hs b/app/Logger.hs index 2eac6c6..bee17ca 100644 --- a/app/Logger.hs +++ b/app/Logger.hs @@ -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