diff options
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 78213f4f7..5c69473fd 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -165,8 +165,7 @@ gen r u c gc , config = c , localpath = localpathCalc r , repo = r - , gitconfig = gc - { remoteGitConfig = Just $ extractGitConfig r } + , gitconfig = gc { remoteGitConfig = extractGitConfig r } , readonly = Git.repoIsHttp r , availability = availabilityCalc r , remotetype = remote @@ -351,7 +350,7 @@ keyUrls r key = map tourl locs' locs' = map (replace "\\" "/") locs #endif remoteconfig = gitconfig r - cfg = fromJust $ remoteGitConfig remoteconfig + cfg = remoteGitConfig remoteconfig dropKey :: Remote -> Key -> Annex Bool dropKey r key @@ -520,7 +519,7 @@ copyFromRemoteCheap :: Remote -> Key -> AssociatedFile -> FilePath -> Annex Bool copyFromRemoteCheap r key af file | not $ Git.repoIsUrl (repo r) = guardUsable (repo r) (return False) $ liftIO $ do loc <- gitAnnexLocation key (repo r) $ - fromJust $ remoteGitConfig $ gitconfig r + remoteGitConfig $ gitconfig r ifM (doesFileExist loc) ( do absloc <- absPath loc |