diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-09 16:55:41 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-09 16:55:41 -0400 |
| commit | 43efb9173bbf23d35106d980fc36c07c6c29a4e6 (patch) | |
| tree | dbbcfbaf7df02f0679753b85072c993ba5c6459e /Command/LockContent.hs | |
| parent | 8bb2283a50771025b5a9a729f4e832211e4990ee (diff) | |
implement lockContent for ssh remotes
Diffstat (limited to 'Command/LockContent.hs')
| -rw-r--r-- | Command/LockContent.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/LockContent.hs b/Command/LockContent.hs index e37d4cca5..72b2bb096 100644 --- a/Command/LockContent.hs +++ b/Command/LockContent.hs @@ -11,6 +11,7 @@ import Common.Annex import Command import Annex.Content import Types.Key +import Remote.Helper.Ssh (contentLockedMarker) cmd :: Command cmd = noCommit $ @@ -36,7 +37,7 @@ start [ks] = do k = fromMaybe (error "bad key") (file2key ks) locksuccess = ifM (inAnnex k) ( liftIO $ do - putStrLn "OK" + putStrLn contentLockedMarker hFlush stdout _ <- getLine return True |