diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Get.hs | 2 | ||||
| -rw-r--r-- | Command/Mirror.hs | 9 | ||||
| -rw-r--r-- | Command/Move.hs | 9 | ||||
| -rw-r--r-- | Command/Sync.hs | 2 |
4 files changed, 12 insertions, 10 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index 58fbefed2..07a501072 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -37,7 +37,7 @@ optParser desc = GetOptions <*> optional (parseKeyOptions True) seek :: GetOptions -> CommandSeek -seek o = do +seek o = allowConcurrentOutput $ do from <- maybe (pure Nothing) (Just <$$> getParsed) (getFrom o) withKeyOptions (keyOptions o) (autoMode o) (startKeys from) diff --git a/Command/Mirror.hs b/Command/Mirror.hs index a8caf9da7..148ca8d3c 100644 --- a/Command/Mirror.hs +++ b/Command/Mirror.hs @@ -41,10 +41,11 @@ instance DeferredParseClass MirrorOptions where <*> pure (keyOptions v) seek :: MirrorOptions -> CommandSeek -seek o = withKeyOptions (keyOptions o) False - (startKey o Nothing) - (withFilesInGit $ whenAnnexed $ start o) - (mirrorFiles o) +seek o = allowConcurrentOutput $ + withKeyOptions (keyOptions o) False + (startKey o Nothing) + (withFilesInGit $ whenAnnexed $ start o) + (mirrorFiles o) start :: MirrorOptions -> FilePath -> Key -> CommandStart start o file = startKey o (Just file) diff --git a/Command/Move.hs b/Command/Move.hs index 9a289d8b6..7a0b57c10 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -45,10 +45,11 @@ instance DeferredParseClass MoveOptions where <*> pure (keyOptions v) seek :: MoveOptions -> CommandSeek -seek o = withKeyOptions (keyOptions o) False - (startKey o True) - (withFilesInGit $ whenAnnexed $ start o True) - (moveFiles o) +seek o = allowConcurrentOutput $ + withKeyOptions (keyOptions o) False + (startKey o True) + (withFilesInGit $ whenAnnexed $ start o True) + (moveFiles o) start :: MoveOptions -> Bool -> FilePath -> Key -> CommandStart start o move = start' o move . Just diff --git a/Command/Sync.hs b/Command/Sync.hs index fffc113d2..2de92188b 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -93,7 +93,7 @@ optParser desc = SyncOptions <*> optional parseAllOption seek :: SyncOptions -> CommandSeek -seek o = do +seek o = allowConcurrentOutput $ do prepMerge -- There may not be a branch checked out until after the commit, |