From 6dee6cdde99461d275ea0758e84083f26f250be7 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Wed, 14 Sep 2016 16:51:43 -0400
Subject: [PATCH] Deal with some semigroups fallout.

---
 src/DiffSummary.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs
index 0dbae5c48..552e1c84f 100644
--- a/src/DiffSummary.hs
+++ b/src/DiffSummary.hs
@@ -169,7 +169,7 @@ toTermName source term = case unwrap term of
 
 maybeParentContext :: Maybe (Category, Text) -> Doc
 maybeParentContext = maybe "" (\annotation ->
-  space <> "in the" <+> (toDoc $ snd annotation) <+> toDoc (toCategoryName $ fst annotation))
+  space P.<> "in the" <+> (toDoc $ snd annotation) <+> toDoc (toCategoryName $ fst annotation))
 
 toDoc :: Text -> Doc
 toDoc = string . toS
@@ -283,5 +283,5 @@ instance (Eq a, Arbitrary a) => Arbitrary (DiffSummary a) where
 
 instance P.Pretty DiffInfo where
   pretty LeafInfo{..} = squotes (string $ toSL termName) <+> (string $ toSL categoryName)
-  pretty BranchInfo{..} = mconcat $ punctuate (string "," <> space) (pretty <$> branches)
+  pretty BranchInfo{..} = mconcat $ punctuate (string "," P.<> space) (pretty <$> branches)
   pretty ErrorInfo{..} = squotes (string $ toSL termName) <+> "at" <+> (string . toSL $ displayStartEndPos errorSpan) <+> "in" <+> (string . toSL $ spanName errorSpan)