From e36a24df176cdbbd634738115f847e4fa46a0aea Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Fri, 12 Sep 2025 01:43:15 +0000 Subject: Adds `Logs` constraint combinator --- hsm-drive/Test/Drive.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'hsm-drive/Test') diff --git a/hsm-drive/Test/Drive.hs b/hsm-drive/Test/Drive.hs index e6332fd..96bd4f4 100644 --- a/hsm-drive/Test/Drive.hs +++ b/hsm-drive/Test/Drive.hs @@ -23,9 +23,9 @@ type Prompt = AppendSymbol Name " λ " type Imports = '["Hsm.Drive", "Prelude"] -type Loggers = '["drive", "gpio", "pwm", "repl"] +type Logs = '["drive", "gpio", "pwm", "repl"] -$(makeLoggerOptionParser @Loggers "Options" "parser" 'Info) +$(makeLoggerOptionParser @Logs "Options" "parser" 'Info) main :: IO () main = @@ -35,5 +35,5 @@ main = & runGPIO @Name & runPWM & runRepl @Prompt @Imports - & runLogsOpt @Options @Loggers opts + & runLogsOpt @Options @Logs opts & runEff -- cgit v1.2.1