From d9c5d32c34885cac67c44c633c5351461902d166 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 25 Sep 2013 03:09:06 -0400
Subject: hlint

test suite still passes
---
 Backend/SHA.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Backend')

diff --git a/Backend/SHA.hs b/Backend/SHA.hs
index 7150a4202..42cde3f57 100644
--- a/Backend/SHA.hs
+++ b/Backend/SHA.hs
@@ -31,11 +31,11 @@ backends :: [Backend]
 backends = catMaybes $ map genBackendE sizes ++ map genBackend sizes
 
 genBackend :: SHASize -> Maybe Backend
-genBackend size = Just $ Backend
+genBackend size = Just Backend
 	{ name = shaName size
 	, getKey = keyValue size
 	, fsckKey = Just $ checkKeyChecksum size
-	, canUpgradeKey = Just $ needsUpgrade
+	, canUpgradeKey = Just needsUpgrade
 	}
 
 genBackendE :: SHASize -> Maybe Backend
-- 
cgit v1.2.3