From 8b714544452dcbc30a853c16d4d5ea83e380eb16 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Mon, 31 Dec 2018 15:26:11 -0500
Subject: [PATCH] hlint suggestion

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

diff --git a/test/Spec/PWRemoveService.hs b/test/Spec/PWRemoveService.hs
index 663bcf8..13ffebc 100644
--- a/test/Spec/PWRemoveService.hs
+++ b/test/Spec/PWRemoveService.hs
@@ -45,7 +45,7 @@ missingService = TestLabel "missing service" $
 
 test' serv keys = let db' = pwRemoveService serv db in
   TestList $
-  (TestLabel "key count" $ length keys ~?= length (M.keys db')) :
+  TestLabel "key count" (length keys ~?= length (M.keys db')) :
   map
   (\x -> TestLabel x $ TestCase $ assertBool "service missing" $ pwHasService x db')
   keys