mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove unused value

Browse source
This commit is contained in:
Joey Hess 2018-06-14 12:32:36 -04:00
parent 8b734da876
commit 391a83c985
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Command/Export.hs
View file

@ -201,7 +201,6 @@ fillExport r ea db new = do
startExport :: Remote -> ExportActions Annex -> ExportHandle -> MVar Bool -> Git.LsTree.TreeItem -> CommandStart startExport :: Remote -> ExportActions Annex -> ExportHandle -> MVar Bool -> Git.LsTree.TreeItem -> CommandStart
startExport r ea db cvar ti = do startExport r ea db cvar ti = do
ek <- exportKey (Git.LsTree.sha ti) ek <- exportKey (Git.LsTree.sha ti)
np <- notpresent ek
stopUnless (notpresent ek) $ do stopUnless (notpresent ek) $ do
showStart ("export " ++ name r) f showStart ("export " ++ name r) f
liftIO $ modifyMVar_ cvar (pure . const True) liftIO $ modifyMVar_ cvar (pure . const True)