From 88bb767ff7d6645465bcf5c437b34486a73c13c3 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 26 Jul 2016 04:07:46 -0400
Subject: [PATCH] Group the law invocations by functor.

---
 test/Data/Mergeable/Spec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Data/Mergeable/Spec.hs b/test/Data/Mergeable/Spec.hs
index 05a808003..b9a5b471d 100644
--- a/test/Data/Mergeable/Spec.hs
+++ b/test/Data/Mergeable/Spec.hs
@@ -9,7 +9,7 @@ import Test.QuickCheck
 
 spec :: Spec
 spec = do
-  sequenceAltLaws (arbitrary :: Gen [Char])
+  describe "[]" $ sequenceAltLaws (arbitrary :: Gen [Char])
 
 sequenceAltLaws :: (Mergeable f, Eq (f a), Show (f a)) => Gen (f a) -> Spec
 sequenceAltLaws gen = do