diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-08-25 02:35:34 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-08-25 02:35:34 +0000 |
| commit | 6f80d2d579d0be8773829ee277086af087e85862 (patch) | |
| tree | 93a52fed4d72f6076f800e7aeea1a3ca663c1e06 /hsm-repl | |
| parent | 6db2d77345b1d3da432a73d9eaf0be34165567c3 (diff) | |
Improves formatting of logs
Diffstat (limited to 'hsm-repl')
| -rw-r--r-- | hsm-repl/Hsm/Repl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hsm-repl/Hsm/Repl.hs b/hsm-repl/Hsm/Repl.hs index dacc76a..46261d6 100644 --- a/hsm-repl/Hsm/Repl.hs +++ b/hsm-repl/Hsm/Repl.hs @@ -13,7 +13,7 @@ import Effectful.Dispatch.Static (SideEffects(WithSideEffects), StaticRep, evalS import Effectful.Exception (bracket) import GHC.TypeLits (KnownSymbol, Symbol, symbolVal) import Generic.Data.Function.Common.Generic.Meta (KnownSymbols, symbolVals) -import Hsm.Log (Log, Severity(Attention, Info, Trace), logMsg) +import Hsm.Log (Log, Severity(Attention, Info, Trace), logBlock, logMsg) import Language.Haskell.Interpreter (GhcError(errMsg), InterpreterError(WontCompile), as, interpret, runInterpreter, setImports) import System.Console.Haskeline (defaultSettings, getInputLine, handleInterrupt, withInterrupt) import System.Console.Haskeline.IO (InputState, cancelInput, initializeInput, queryInput) @@ -45,7 +45,7 @@ repl = query >>= maybe (return Nothing) parse logMsg Trace $ "Parsed value: " <> show value return $ Just value Left (WontCompile errors) -> do - forM_ errors $ logMsg Attention . errMsg + forM_ errors $ logBlock Attention . errMsg repl Left err -> do logMsg Attention $ show err |