diff options
author | Joey Hess <joey@kitenet.net> | 2010-12-29 16:48:55 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-12-29 16:48:55 -0400 |
commit | ef85e699babd2aabdc64e048422456ac68244ef2 (patch) | |
tree | 87b46f76fa8c5c123f54303611f561a92de06484 /UUID.hs | |
parent | 1448d8b42dbc8c29477ab75bbc1e5a33d1eae3ba (diff) |
simplify
Diffstat (limited to 'UUID.hs')
-rw-r--r-- | UUID.hs | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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 |