mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add export infication to git-annex info

Browse source
This commit is contained in:
Joey Hess 2017-09-04 16:55:31 -04:00
parent 662f2a5ee7
commit a1cc9ec0fd
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Remote/Helper/Export.hs
View file

@ -8,12 +8,10 @@
module Remote.Helper.Export where module Remote.Helper.Export where
import Annex.Common import Annex.Common
import qualified Annex
import Types.Remote import Types.Remote
import Types.Creds import Types.Creds
import Types.Backend import Types.Backend
import Types.Key import Types.Key
import Types.TrustLevel
import Backend import Backend
import Remote.Helper.Encryptable (isEncrypted) import Remote.Helper.Encryptable (isEncrypted)
import Database.Export import Database.Export
@ -84,6 +82,10 @@ exportableRemote r = case M.lookup "exporttree" (config r) of
, checkPresent = \k -> , checkPresent = \k ->
anyM (checkPresentExport (exportActions r) k) anyM (checkPresentExport (exportActions r) k)
=<< liftIO (getExportLocation db k) =<< liftIO (getExportLocation db k)
, mkUnavailable = return Nothing
, getInfo = do
is <- getInfo r
return (is++[("export", "yes")])
} }
_ -> return $ Just $ r { exportActions = exportUnsupported } _ -> return $ Just $ r { exportActions = exportUnsupported }