From 57adb0347bf4eb71ab846a2947680a20263449a2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Nov 2010 15:46:57 -0400 Subject: hlint tweaks Remotes.hs next, and also Backend/* and Command/* --- TypeInternals.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'TypeInternals.hs') diff --git a/TypeInternals.hs b/TypeInternals.hs index 3078224b1..bcef4ee0a 100644 --- a/TypeInternals.hs +++ b/TypeInternals.hs @@ -51,10 +51,10 @@ instance Show Key where show (Key (b, k)) = b ++ ":" ++ k instance Read Key where - readsPrec _ s = [((Key (b,k)) ,"")] + readsPrec _ s = [(Key (b,k), "")] where l = split ":" s - b = l !! 0 + b = head l k = join ":" $ drop 1 l backendName :: Key -> BackendName @@ -81,4 +81,4 @@ data Backend = Backend { } instance Show Backend where - show backend = "Backend { name =\"" ++ (name backend) ++ "\" }" + show backend = "Backend { name =\"" ++ name backend ++ "\" }" -- cgit v1.2.3