From 3d73efc6d32418a95be48b9b64533c2f2c5db02e Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 12 Jul 2016 17:16:10 -0400
Subject: [PATCH] Placate hlint.

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

diff --git a/test/OrderedMapSpec.hs b/test/OrderedMapSpec.hs
index 89828dd1a..56e2e36dc 100644
--- a/test/OrderedMapSpec.hs
+++ b/test/OrderedMapSpec.hs
@@ -15,7 +15,7 @@ spec = parallel $ do
 
   describe "union" $ do
     it "should return those elements in either a or b" $
-      Map.union a b `shouldBe` Map.fromList (Map.toList a ++ [ ("d", -4) ])
+      Map.union a b `shouldBe` Map.fromList (Map.toList a <> [ ("d", -4) ])
 
     it "is asymmetrical" $
       Map.union a b `shouldNotBe` Map.union b a