diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-09-07 19:23:37 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-09-07 19:49:03 +0000 |
| commit | 89aab732dc3d484b99c0761728285bca6f6b1ba0 (patch) | |
| tree | e2b4ca6656758dc9f398b9b1de2e6d92670b77df /hsm-repl/Test/Repl.hs | |
| parent | ef0713cbd90d6b84da7ea67e6dfc1fe5ab5bff86 (diff) | |
Diffstat (limited to 'hsm-repl/Test/Repl.hs')
| -rw-r--r-- | hsm-repl/Test/Repl.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/hsm-repl/Test/Repl.hs b/hsm-repl/Test/Repl.hs index 8588718..7d1431c 100644 --- a/hsm-repl/Test/Repl.hs +++ b/hsm-repl/Test/Repl.hs @@ -1,7 +1,8 @@ import Control.Monad.Loops (whileJust_) +import Data.Function ((&)) import Effectful (runEff) -import Hsm.Log (Severity(Trace), runLog) +import Hsm.Log (Severity (Trace), runLog) import Hsm.Repl (repl, runRepl) main :: IO () -main = runEff . runLog @"repl" Trace . runRepl @"exec-repl λ " @'[ "Prelude"] @[Bool] $ whileJust_ repl return +main = whileJust_ repl return & runRepl @"exec-repl λ " @'["Prelude"] @[Bool] & runLog @"repl" Trace & runEff |