summaryrefslogtreecommitdiff
path: root/RemoteDaemon/Common.hs
diff options
context:
space:
mode:
Diffstat (limited to 'RemoteDaemon/Common.hs')
-rw-r--r--RemoteDaemon/Common.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/RemoteDaemon/Common.hs b/RemoteDaemon/Common.hs
index 9efc0c4a0..982a84b43 100644
--- a/RemoteDaemon/Common.hs
+++ b/RemoteDaemon/Common.hs
@@ -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.