diff options
Diffstat (limited to 'hsm-command')
| -rw-r--r-- | hsm-command/Hsm/Command/Readline.hs | 6 | ||||
| -rw-r--r-- | hsm-command/hsm-command.cabal | 1 |
2 files changed, 3 insertions, 4 deletions
diff --git a/hsm-command/Hsm/Command/Readline.hs b/hsm-command/Hsm/Command/Readline.hs index 3c56453..428ed50 100644 --- a/hsm-command/Hsm/Command/Readline.hs +++ b/hsm-command/Hsm/Command/Readline.hs @@ -9,8 +9,9 @@ module Hsm.Command.Readline import Effectful (Dispatch(Static), DispatchOf, Eff, IOE, (:>)) import Effectful.Dispatch.Static qualified as S -import Effectful.Log (Log, getLoggerEnv, leLogger, waitForLogger) +import Effectful.Log (Log) import Effectful.Resource (Resource, allocate) +import Hsm.Core.Log (flushLogger) import System.Console.Haskeline qualified as H import System.Console.Haskeline.IO qualified as H @@ -29,9 +30,6 @@ readline = do Readline hdl <- S.getStaticRep S.unsafeEff_ $ nextLine hdl where - flushLogger :: Eff es () - flushLogger = getLoggerEnv >>= S.unsafeEff_ . waitForLogger . leLogger - -- nextLine :: H.InputState -> IO (Maybe String) nextLine hdl = H.queryInput hdl diff --git a/hsm-command/hsm-command.cabal b/hsm-command/hsm-command.cabal index 766f372..836bf07 100644 --- a/hsm-command/hsm-command.cabal +++ b/hsm-command/hsm-command.cabal @@ -11,6 +11,7 @@ library , binary , effectful-core , haskeline + , hsm-core , log-effectful , resourcet-effectful , streamly-core |