From 391a83c98551c65c44582f39f9bb0bdfd7d8ac06 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 14 Jun 2018 12:32:36 -0400 Subject: [PATCH] remove unused value --- Command/Export.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Command/Export.hs b/Command/Export.hs index 4f5fa260a4..5084e4f994 100644 --- a/Command/Export.hs +++ b/Command/Export.hs @@ -201,7 +201,6 @@ fillExport r ea db new = do startExport :: Remote -> ExportActions Annex -> ExportHandle -> MVar Bool -> Git.LsTree.TreeItem -> CommandStart startExport r ea db cvar ti = do ek <- exportKey (Git.LsTree.sha ti) - np <- notpresent ek stopUnless (notpresent ek) $ do showStart ("export " ++ name r) f liftIO $ modifyMVar_ cvar (pure . const True)