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

avoid windows build warning

Browse source
This commit is contained in:
Joey Hess 2019-08-13 13:10:33 -04:00
parent a95de6bcc7
commit cfd0b4108e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Git.hs
View file

@ -821,9 +821,11 @@ data State = State Ssh.P2PSshConnectionPool DeferredUUIDCheck CopyCoWTried (Anne
getRepoFromState :: State -> Annex Git.Repo getRepoFromState :: State -> Annex Git.Repo
getRepoFromState (State _ _ _ a) = fst <$> a getRepoFromState (State _ _ _ a) = fst <$> a
#ifndef mingw32_HOST_OS
{- The config of the remote git repository, cached for speed. -} {- The config of the remote git repository, cached for speed. -}
getGitConfigFromState :: State -> Annex GitConfig getGitConfigFromState :: State -> Annex GitConfig
getGitConfigFromState (State _ _ _ a) = snd <$> a getGitConfigFromState (State _ _ _ a) = snd <$> a
#endif
mkState :: Git.Repo -> UUID -> RemoteGitConfig -> Annex State mkState :: Git.Repo -> UUID -> RemoteGitConfig -> Annex State
mkState r u gc = do mkState r u gc = do