diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-03 12:33:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-03 12:33:31 -0400 |
| commit | 9a7b0fa5cc16994509cf7482df68a07319dd6937 (patch) | |
| tree | d8795f835e7d1744bbc19561e74cd0b3b36bfd79 | |
| parent | c81a8bd68c53348b9e561dc588499452a5a654c7 (diff) | |
quash warning
| -rw-r--r-- | Command/Direct.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Direct.hs b/Command/Direct.hs index 7485f41ce..1f262bd9f 100644 --- a/Command/Direct.hs +++ b/Command/Direct.hs @@ -54,8 +54,8 @@ perform = do Nothing -> noop Just a -> do showStart "direct" f - r <- tryAnnex a - case r of + r' <- tryAnnex a + case r' of Left e -> warnlocked e Right _ -> showEndOk return Nothing |