diff options
author | 2011-07-15 03:12:05 -0400 | |
---|---|---|
committer | 2011-07-15 03:12:05 -0400 | |
commit | e78475737636a5d1e0d0a36b475c300cc7bb56cc (patch) | |
tree | 1d88de569e951b66ff5321eefaec49ad4b33bf89 /Command.hs | |
parent | 9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff) |
hlint tweaks
Did all sources except Remotes/* and Command/*
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command.hs b/Command.hs index c666ddbd2..729e442fc 100644 --- a/Command.hs +++ b/Command.hs @@ -115,7 +115,7 @@ isAnnexed file a = maybe (return Nothing) a =<< Backend.lookupFile file notBareRepo :: Annex a -> Annex a notBareRepo a = do g <- Annex.gitRepo - when (Git.repoIsLocalBare g) $ do + when (Git.repoIsLocalBare g) $ error "You cannot run this subcommand in a bare repository." a @@ -175,9 +175,9 @@ withFilesUnlocked' typechanged a params = do unlockedfiles' <- filterFiles unlockedfiles backendPairs a unlockedfiles' withKeys :: CommandSeekKeys -withKeys a params = return $ map a $ map parse params +withKeys a params = return $ map (a . parse) params where - parse p = maybe (error "bad key") id $ readKey p + parse p = fromMaybe (error "bad key") $ readKey p withTempFile :: CommandSeekStrings withTempFile a params = return $ map a params withNothing :: CommandSeekNothing |