diff --git a/src/Cli.hs b/src/Cli.hs index a7bc664..1a966fc 100644 --- a/src/Cli.hs +++ b/src/Cli.hs @@ -33,7 +33,7 @@ import Prelude hiding (lookup) import Effectful ( type (:>), Eff, IOE ) import Effectful.Resource ( Resource ) -import Effectful.Log ( Log ) +-- import Effectful.Log ( Log ) import Effectful.Reader.Dynamic (Reader) import Effectful.Concurrent.MVar.Strict (MVar, Concurrent) @@ -59,7 +59,7 @@ runCommand :: ( IOE :> es , Reader (MVar Env) :> es , Concurrent :> es - , Log :> es + -- , Log :> es , Resource :> es , PrettyPrint :> es , Console :> es diff --git a/src/Translator.hs b/src/Translator.hs index ed27b23..c8d0e70 100644 --- a/src/Translator.hs +++ b/src/Translator.hs @@ -31,7 +31,7 @@ import qualified System.Console.Haskeline as Haskeline import Effectful ( type (:>), Eff, IOE ) import Effectful.Resource ( allocate, release, Resource ) -import Effectful.Log ( logInfo_, Log ) +-- import Effectful.Log ( logInfo_, Log ) import Effectful.Reader.Dynamic (Reader) import Effectful.Concurrent.MVar.Strict (MVar, Concurrent) @@ -40,7 +40,7 @@ import Effectful.Concurrent.MVar.Strict (MVar, Concurrent) translator :: ( IOE :> es , PrettyPrint :> es - , Log :> es + -- , Log :> es , Resource :> es , Console :> es , Reader (MVar Env) :> es @@ -59,7 +59,6 @@ translator = bracketOnError -- Looped dialog with user loopDialog :: ( PrettyPrint :> es - , Log :> es , Console :> es , Reader (MVar Env) :> es , Concurrent :> es @@ -79,8 +78,8 @@ loopDialog inputState = forever $ do Just input -> do env <- readEnv case getAnswer input env of - Left err -> do - logInfo_ $ showT err + Left _ -> do + -- logInfo_ $ showT err putColorDoc red NewLine "Nothing found" Right (query, answer) -> if null answer then putColorDoc red NewLine "Nothing found"