From ada478517f1bc72326d4d8b65f453614bffe54f0 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Tue, 23 Oct 2018 12:17:06 -0400
Subject: [PATCH] Flip runREPLC.

---
 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 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 }