quash warning

This commit is contained in:
Joey Hess 2013-10-03 12:33:31 -04:00
parent 3ac9c4e672
commit c34948247e

View file

@ -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