diff --git a/src/Semantic/REPL.hs b/src/Semantic/REPL.hs
index 7ea6a2eb5..9f4bb3ec8 100644
--- a/src/Semantic/REPL.hs
+++ b/src/Semantic/REPL.hs
@@ -70,7 +70,7 @@ instance Effect REPL where
 
 
 runREPL :: (MonadIO m, Carrier sig m) => Prefs -> Settings IO -> Eff (REPLC m) a -> m a
-runREPL prefs settings = runREPLC (prefs, settings) . interpret
+runREPL prefs settings = flip runREPLC (prefs, settings) . interpret
 
 newtype REPLC m a = REPLC { runREPLC :: (Prefs, Settings IO) -> m a }