diff options
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/Command.hs b/Command.hs index 6c127c15d..8225f7b1b 100644 --- a/Command.hs +++ b/Command.hs @@ -17,8 +17,6 @@ module Command ( doCommand, whenAnnexed, ifAnnexed, - notBareRepo, - notDirect, isBareRepo, numCopies, numCopiesCheck, @@ -98,18 +96,6 @@ whenAnnexed a file = ifAnnexed file (a file) (return Nothing) ifAnnexed :: FilePath -> ((Key, Backend) -> Annex a) -> Annex a -> Annex a ifAnnexed file yes no = maybe no yes =<< Backend.lookupFile file -notBareRepo :: Annex a -> Annex a -notBareRepo a = do - whenM isBareRepo $ - error "You cannot run this subcommand in a bare repository." - a - -notDirect :: Annex a -> Annex a -notDirect a = ifM isDirect - ( error "You cannot run this subcommand in a direct mode repository." - , a - ) - isBareRepo :: Annex Bool isBareRepo = fromRepo Git.repoIsLocalBare |