From 00da706837f15b98da922b7e09167b71c4b4810e Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 2 Aug 2018 10:06:00 -0400
Subject: [PATCH] :fire: a bunch of parens.

---
 src/Semantic/REPL.hs | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/src/Semantic/REPL.hs b/src/Semantic/REPL.hs
index f8ae223e9..7cc321b6a 100644
--- a/src/Semantic/REPL.hs
+++ b/src/Semantic/REPL.hs
@@ -84,23 +84,23 @@ repl proxy parser lang paths = runTaskWithOptions debugOptions $ do
   package <- fmap quieterm <$> parsePackage parser (Project (takeDirectory (maybe "/" fst (uncons paths))) blobs lang [])
   modules <- topologicalSort <$> runImportGraphToModules proxy package
   runEvaluator
-    (runTermEvaluator @_ @_ @(Value Precise (REPLEff Precise _))
-    (runState lowerBound
-    (runFresh 0
-    (fmap reassociate
-    (runLoadError
-    (runUnspecialized
-    (runEnvironmentError
-    (runEvalError
-    (runResolutionError
-    (runAddressError
-    (runValueError
-    (runREPL
-    (runReader (packageInfo package)
-    (runReader (lowerBound @Span)
-    (runReader (lowerBound @(ModuleTable (NonEmpty (Module (ModuleResult Precise)))))
-    (raiseHandler (runModules (ModuleTable.modulePaths (packageModules package)))
-    (evaluate proxy id (withTermSpans . step) (Concrete.runFunction coerce coerce) modules)))))))))))))))))
+    . runTermEvaluator @_ @_ @(Value Precise (REPLEff Precise _))
+    . runState lowerBound
+    . runFresh 0
+    . fmap reassociate
+    . runLoadError
+    . runUnspecialized
+    . runEnvironmentError
+    . runEvalError
+    . runResolutionError
+    . runAddressError
+    . runValueError
+    . runREPL
+    . runReader (packageInfo package)
+    . runReader (lowerBound @Span)
+    . runReader (lowerBound @(ModuleTable (NonEmpty (Module (ModuleResult Precise)))))
+    . raiseHandler (runModules (ModuleTable.modulePaths (packageModules package)))
+    $ evaluate proxy id (withTermSpans . step) (Concrete.runFunction coerce coerce) modules
 
 step :: Member REPL effects
      => SubtermAlgebra (Base term) term (TermEvaluator term address value effects a)