hlint tweaks

Remotes.hs next, and also Backend/* and Command/*

1 files changed, 3 insertions, 3 deletions

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 ++ "\" }"