From 9f6b7935ddb3d5dcbe0b4b784dc8acd7288ddba6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 20 Sep 2011 23:24:48 -0400
Subject: go go gadget hlint

---
 Backend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Backend.hs')

diff --git a/Backend.hs b/Backend.hs
index 0c9ea8d0b..d12913985 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -111,7 +111,7 @@ chooseBackends :: [FilePath] -> Annex [BackendFile]
 chooseBackends fs = do
 	g <- Annex.gitRepo
 	forced <- Annex.getState Annex.forcebackend
-	if forced /= Nothing
+	if isJust forced
 		then do
 			l <- orderedList
 			return $ map (\f -> (Just $ head l, f)) fs
-- 
cgit v1.2.3