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

remove unnecessary mvar

Browse source
This commit is contained in:
Joey Hess 2016-09-30 13:17:49 -04:00
parent 7373866968
commit 63e21a607f
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Remote/External/Types.hs vendored
View file

@ -54,8 +54,7 @@ data External = External
, externalLock :: TMVar ExternalLock
-- Never left empty.
, externalConfig :: TMVar RemoteConfig
-- Never left empty.
, externalGitConfig :: TMVar RemoteGitConfig
, externalGitConfig :: RemoteGitConfig
}
newExternal :: ExternalType -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex External
@ -65,7 +64,7 @@ newExternal externaltype u c gc = liftIO $ External
<*> atomically newEmptyTMVar
<*> atomically (newTMVar ExternalLock)
<*> atomically (newTMVar c)
<*> atomically (newTMVar gc)
<*> pure gc
type ExternalType = String