From d80d72eb8e999fd4321313802953788325838612 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 23 Oct 2018 12:16:49 -0400 Subject: [PATCH] Fix the Effect instance for REPL. --- src/Semantic/REPL.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Semantic/REPL.hs b/src/Semantic/REPL.hs index 4dcb45e42..7ea6a2eb5 100644 --- a/src/Semantic/REPL.hs +++ b/src/Semantic/REPL.hs @@ -66,7 +66,7 @@ instance HFunctor REPL where instance Effect REPL where handle state handler (Prompt k) = Prompt (handler . (<$ state) . k) - handle state handler (Output s k) = Output s (handler . (<$ state) . k) + handle state handler (Output s k) = Output s (handler (k <$ state)) runREPL :: (MonadIO m, Carrier sig m) => Prefs -> Settings IO -> Eff (REPLC m) a -> m a