From fc463629572c360145026ce38b8fd2c74c40a54b Mon Sep 17 00:00:00 2001
From: Rob Rix <robrix@github.com>
Date: Tue, 22 Oct 2019 16:18:56 -0400
Subject: [PATCH] Fix some constraints & imports.

---
 test/Rendering/TOC/Spec.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/Rendering/TOC/Spec.hs b/test/Rendering/TOC/Spec.hs
index e437b2b64..364786f25 100644
--- a/test/Rendering/TOC/Spec.hs
+++ b/test/Rendering/TOC/Spec.hs
@@ -4,6 +4,7 @@ module Rendering.TOC.Spec (spec) where
 import Analysis.TOCSummary
 import Control.Effect.Parse
 import Control.Effect.Reader
+import Control.Monad.IO.Class
 import Data.Aeson hiding (defaultOptions)
 import Data.Bifunctor
 import Data.Diff
@@ -216,7 +217,7 @@ blankDiff = merge (Nothing, Nothing) (inject [ inserting (termIn Nothing (inject
 
 -- Diff helpers
 summarize
-  :: (Member Telemetry sig, Carrier sig m, MonadIO m)
+  :: (Member (Error SomeException) sig, Member Parse sig, Member Telemetry sig, Carrier sig m, MonadIO m)
   => BlobPair
   -> m [Either ErrorSummary TOCSummary]
 summarize = parsePairWith (summarizeTermParsers defaultLanguageModes) summarizeTerms