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

make LocalRepo a newtype

Browse source
This commit is contained in:
Joey Hess 2016-06-02 16:34:52 -04:00
parent 8452ea45ca
commit 67f50e9cdd
Failed to extract signature
5 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
RemoteDaemon/Common.hs
View file

@ -30,7 +30,7 @@ liftAnnex (TransportHandle _ annexstate) a = do
return r
inLocalRepo :: TransportHandle -> (Git.Repo -> IO a) -> IO a
inLocalRepo (TransportHandle g _) a = a g
inLocalRepo (TransportHandle (LocalRepo g) _) a = a g
-- Check if any of the shas are actally new in the local git repo,
-- to avoid unnecessary fetching.