diff options
| -rw-r--r-- | Command/Export.hs | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/Command/Export.hs b/Command/Export.hs index 7de143ffb..a2632857a 100644 --- a/Command/Export.hs +++ b/Command/Export.hs @@ -16,6 +16,7 @@ import Types.Key import Types.Remote import Annex.Content import Annex.CatFile +import Logs.Location import Messages.Progress import Utility.Tmp @@ -69,10 +70,15 @@ performExport r diff loc = case storeExport r of Just storer -> next $ do v <- exportKey (Git.DiffTree.dstsha diff) case v of - Right k -> metered Nothing k $ \m -> - sendAnnex k - (void $ performUnexport r k loc) - (\f -> storer f k loc m) + Right k -> ifM (inAnnex k) + ( metered Nothing k $ \m -> + sendAnnex k + (void $ performUnexport r k loc) + (\f -> storer f k loc m) + , do + showNote "not available" + return False + ) -- Sending a non-annexed file. Left sha1k -> metered Nothing sha1k $ \m -> withTmpFile "export" $ \tmp h -> do |