diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-08-26 21:39:37 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-08-26 21:40:12 +0000 |
| commit | 101b60386ec8380cc3a62154bc7c1c53205f5d59 (patch) | |
| tree | fc67555b20416791d59c6cd9a5e8fb9e2437f15d /hsm-repl/Test/Repl.hs | |
| parent | f1f62e00559d5c68a5e7b1246208391835a13d0d (diff) | |
Improves formatting even more
Diffstat (limited to 'hsm-repl/Test/Repl.hs')
| -rw-r--r-- | hsm-repl/Test/Repl.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/hsm-repl/Test/Repl.hs b/hsm-repl/Test/Repl.hs index 2d299b8..8588718 100644 --- a/hsm-repl/Test/Repl.hs +++ b/hsm-repl/Test/Repl.hs @@ -1,8 +1,7 @@ import Control.Monad.Loops (whileJust_) -import Data.Function ((&)) import Effectful (runEff) import Hsm.Log (Severity(Trace), runLog) import Hsm.Repl (repl, runRepl) main :: IO () -main = whileJust_ repl return & runRepl @"exec-repl λ " @'[ "Prelude"] @[Bool] & runLog @"repl" Trace & runEff +main = runEff . runLog @"repl" Trace . runRepl @"exec-repl λ " @'[ "Prelude"] @[Bool] $ whileJust_ repl return |