diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-09-30 13:17:49 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-30 13:17:49 -0400 |
| commit | 9bdcbd84e505a91b54c3a8193f877f7b2d721c63 (patch) | |
| tree | e67b915762279be1e56bdcf62363f5d34adccfc1 /Remote/External | |
| parent | f83e0a720f9bb0c5a46b996a4a7c705c3a0587b2 (diff) | |
remove unnecessary mvar
Diffstat (limited to 'Remote/External')
| -rw-r--r-- | Remote/External/Types.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Remote/External/Types.hs b/Remote/External/Types.hs index 87c2dc056..be608d4e5 100644 --- a/Remote/External/Types.hs +++ b/Remote/External/Types.hs @@ -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 |