From ef85e699babd2aabdc64e048422456ac68244ef2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 29 Dec 2010 16:48:55 -0400
Subject: simplify

---
 UUID.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/UUID.hs b/UUID.hs
index 3e43c8061..21f2b202e 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -24,8 +24,6 @@ module UUID (
 ) where
 
 import Control.Monad.State
-import Data.Maybe
-import Data.List
 import System.Cmd.Utils
 import System.IO
 import qualified Data.Map as M
@@ -85,7 +83,7 @@ reposByUUID repos uuids = filterM match repos
 	where
 		match r = do
 			u <- getUUID r
-			return $ isJust $ elemIndex u uuids
+			return $ elem u uuids
 
 {- Filters a list of repos to ones that do not have the listed UUIDs. -}
 reposWithoutUUID :: [Git.Repo] -> [UUID] -> Annex [Git.Repo]
@@ -93,7 +91,7 @@ reposWithoutUUID repos uuids = filterM unmatch repos
 	where
 		unmatch r = do
 			u <- getUUID r
-			return $ not $ isJust $ elemIndex u uuids
+			return $ not $ elem u uuids
 
 {- Pretty-prints a list of UUIDs -}
 prettyPrintUUIDs :: [UUID] -> Annex String
-- 
cgit v1.2.3