Adds GPIO effect and dummy blinker service

1 files changed, 2 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