diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-08-31 22:40:07 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-09-03 03:28:36 +0000 |
| commit | 6d8c41bc488656cb3e7c21481d32c4f6f7326a16 (patch) | |
| tree | a1e3016fe1ceb8bbdc8ef37c0862bac29c2c3974 /hsm-repl | |
| parent | 13654ca1df8bd4b6de6b7867e66dedc5f9f9780d (diff) | |
Polishes `hsm-log` even more
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 45a2cf2..6bcf39d 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), logBlock, logMsg) +import Hsm.Log (Log, Severity(Attention, Info, Trace), logMsg) import Language.Haskell.Interpreter (GhcError(errMsg), InterpreterError(WontCompile), as, interpret, runInterpreter, setImports) import String.ANSI (blue) import System.Console.Haskeline (defaultSettings, getInputLine, handleInterrupt, withInterrupt) @@ -46,7 +46,7 @@ repl = query >>= maybe (return Nothing) parse logMsg Trace $ "Parsed value: " <> show value return $ Just value Left (WontCompile errors) -> do - forM_ errors $ logBlock Attention . errMsg + forM_ errors $ logMsg Attention . errMsg repl Left err -> do logMsg Attention $ show err |