From 054876fa7f2ee97eecbd88b2c9ea346df073b243 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 11 May 2017 09:40:46 -0400
Subject: [PATCH] Pointful definition of diffTerms.

---
 src/Interpreter.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Interpreter.hs b/src/Interpreter.hs
index e86a8ab00..bc1166e94 100644
--- a/src/Interpreter.hs
+++ b/src/Interpreter.hs
@@ -21,7 +21,7 @@ diffTerms :: (Eq leaf, HasField fields Category, HasField fields (Maybe FeatureV
   => SyntaxTerm leaf fields -- ^ A term representing the old state.
   -> SyntaxTerm leaf fields -- ^ A term representing the new state.
   -> SyntaxDiff leaf fields
-diffTerms = (runAlgorithm (decomposeWith algorithmWithTerms) .) . diff
+diffTerms a b = runAlgorithm (decomposeWith algorithmWithTerms) (diff a b)
 
 -- | Run an Algorithm to completion by repeated application of a stepping operation and return its result.
 runAlgorithm :: forall f result