diff options
| -rw-r--r-- | Command/Import.hs | 2 | ||||
| -rw-r--r-- | Remote.hs | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/Command/Import.hs b/Command/Import.hs index 58e4db38a..eb21faea2 100644 --- a/Command/Import.hs +++ b/Command/Import.hs @@ -84,7 +84,7 @@ start mode (srcfile, destfile) = liftIO $ removeFile srcfile next $ return True , do - warning "could not verify that the content is still present in the annex; not removing from the import location" + warning "Could not verify that the content is still present in the annex; not removing from the import location." stop ) importfile = do @@ -282,7 +282,9 @@ showLocations separateuntrusted key exclude nolocmsg = do let uuidsskipped = filteruuids uuids (u:exclude++uuidswanted) ppuuidswanted <- prettyPrintUUIDs "wanted" uuidswanted ppuuidsskipped <- prettyPrintUUIDs "skipped" uuidsskipped - showLongNote $ message ppuuidswanted ppuuidsskipped + let msg = message ppuuidswanted ppuuidsskipped + unless (null msg) $ + showLongNote msg ignored <- filter (remoteAnnexIgnore . gitconfig) <$> remoteList unless (null ignored) $ showLongNote $ "(Note that these git remotes have annex-ignore set: " ++ unwords (map name ignored) ++ ")" |