diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-08 16:55:11 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-08 16:55:11 -0400 |
| commit | d5494842274030d21356c7492e6de5969173c34d (patch) | |
| tree | a1c25eacba4e6b98b0b1bf275a89ecc7ea0e20d2 /Command/LockContent.hs | |
| parent | 55fb90edfc8732b08bea9239a6f4a471ac7867c3 (diff) | |
add VerifiedCopy data type
There should be no behavior changes in this commit, it just adds a more
expressive data type and adjusts code that had been passing around a [UUID]
or sometimes a Maybe Remote to instead use [VerifiedCopy].
Although, since some functions were taking two different [UUID] lists,
there's some potential for me to have gotten it horribly wrong.
Diffstat (limited to 'Command/LockContent.hs')
| -rw-r--r-- | Command/LockContent.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/LockContent.hs b/Command/LockContent.hs index bab5c9276..e37d4cca5 100644 --- a/Command/LockContent.hs +++ b/Command/LockContent.hs @@ -27,7 +27,7 @@ seek = withWords start -- dropping the lock. start :: [String] -> CommandStart start [ks] = do - ok <- lockContentShared k locksuccess + ok <- lockContentShared k (const locksuccess) `catchNonAsync` (const $ return False) liftIO $ if ok then exitSuccess |