From 95beaf844664509483eb53b0df2318d1d57ba8a9 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Tue, 11 Apr 2017 18:23:32 -0400
Subject: [PATCH] Move q application out

---
 src/RWS.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/RWS.hs b/src/RWS.hs
index d60014851..2fc284aa5 100644
--- a/src/RWS.hs
+++ b/src/RWS.hs
@@ -93,16 +93,16 @@ run :: (Eq1 f, Functor f, HasField fields Category, HasField fields (Maybe Featu
     -> t (Term f (Record fields))
     -> Eff (RWS f fields ': e) (RWSEditScript f fields)
     -> Eff e (RWSEditScript f fields)
-run editDistance canCompare as bs = relay pure (\m q -> case m of
-  SES -> q $ ses (gliftEq (==) `on` fmap category) as bs
+run editDistance canCompare as bs = relay pure (\m q -> q $ case m of
+  SES -> ses (gliftEq (==) `on` fmap category) as bs
   (GenFeaturizedTermsAndDiffs sesDiffs) ->
-    q $ genFeaturizedTermsAndDiffs sesDiffs
+    genFeaturizedTermsAndDiffs sesDiffs
   (FindNearestNeighoursToDiff allDiffs featureAs featureBs) ->
-    q $ findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs
+    findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs
   (DeleteRemaining allDiffs remainingDiffs) ->
-    q $ deleteRemaining allDiffs remainingDiffs
+    deleteRemaining allDiffs remainingDiffs
   (InsertMapped allDiffs mappedDiffs) ->
-    q $ insertMapped allDiffs mappedDiffs)
+    insertMapped allDiffs mappedDiffs)
 
 type Diff f fields = These (Term f (Record fields)) (Term f (Record fields))