From e78475737636a5d1e0d0a36b475c300cc7bb56cc Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 15 Jul 2011 03:12:05 -0400
Subject: hlint tweaks

Did all sources except Remotes/* and Command/*
---
 Types/Key.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Types/Key.hs')

diff --git a/Types/Key.hs b/Types/Key.hs
index 1d9bf8e11..b26bb8989 100644
--- a/Types/Key.hs
+++ b/Types/Key.hs
@@ -48,7 +48,7 @@ instance Show Key where
 			"" +++ y = y
 			x +++ "" = x
 			x +++ y = x ++ fieldSep:y
-			c ?: (Just v) = c:(show v)
+			c ?: (Just v) = c : show v
 			_ ?: _ = ""
 
 readKey :: String -> Maybe Key
@@ -73,4 +73,4 @@ readKey s = if key == Just stubKey then Nothing else key
 		addfield _ _ _ = Nothing
 
 prop_idempotent_key_read_show :: Key -> Bool
-prop_idempotent_key_read_show k = Just k == (readKey $ show k)
+prop_idempotent_key_read_show k = Just k == (readKey . show) k
-- 
cgit v1.2.3