From f4f83895f6049cab819f555c97a79fca3dc0c610 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Tue, 4 Apr 2017 11:00:37 -0400
Subject: [PATCH] Evaluate terms in parallel.

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

diff --git a/src/Command.hs b/src/Command.hs
index eebb83308..0f0747fea 100644
--- a/src/Command.hs
+++ b/src/Command.hs
@@ -73,7 +73,7 @@ parseBlob blob = parse (languageForType (takeExtension (path blob))) blob
 
 -- | Diff two terms.
 diff :: HasField fields Category => Both (Term (Syntax Text) (Record fields)) -> Command (Diff (Syntax Text) (Record fields))
-diff terms = Diff terms `Then` return
+diff terms = Diff (terms `using` parTraversable rpar) `Then` return
 
 -- | Diff two terms, producing an insertion/deletion when one is missing and Nothing when both are missing.
 maybeDiff :: HasField fields Category => Both (Maybe (Term (Syntax Text) (Record fields))) -> Command (Maybe (Diff (Syntax Text) (Record fields)))