From 1f20f77712e31fa554b0c435a9d0376c4d4138d6 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 5 Feb 2012 13:23:06 -0800
Subject: Changed infix level of testing combinators.

This avoids clash with (<>), which is defined in Data.Monoid
as having infix 6.
---
 src/Tests/Helpers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Tests/Helpers.hs')

diff --git a/src/Tests/Helpers.hs b/src/Tests/Helpers.hs
index b8d6b83a7..bd5a38869 100644
--- a/src/Tests/Helpers.hs
+++ b/src/Tests/Helpers.hs
@@ -79,7 +79,7 @@ vivid s = setSGRCode [SetColor Background Dull Red
                      , SetColor Foreground Vivid White] ++ s
           ++ setSGRCode [Reset]
 
-infix 6 =?>
+infix 5 =?>
 (=?>) :: a -> b -> (a,b)
 x =?> y = (x, y)
 
-- 
cgit v1.2.3