mirror of
https://github.com/github/semantic.git
synced 2024-12-22 22:31:36 +03:00
Flip runREPLC.
This commit is contained in:
parent
d80d72eb8e
commit
ada478517f
@ -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 }
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user