From 9a7b0fa5cc16994509cf7482df68a07319dd6937 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 3 Oct 2013 12:33:31 -0400 Subject: quash warning --- Command/Direct.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Command') 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 -- cgit v1.2.3