diff options
Diffstat (limited to 'Command/Direct.hs')
| -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 |