From de730cf573a63625ba14e4e1f3e6978b6344eda6 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Sat, 23 Apr 2016 21:09:24 +0000 Subject: [PATCH] Adapt to module rename in hit-network --- src/Vervis/Handler/Git.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Vervis/Handler/Git.hs b/src/Vervis/Handler/Git.hs index 897164a..02e1616 100644 --- a/src/Vervis/Handler/Git.hs +++ b/src/Vervis/Handler/Git.hs @@ -25,7 +25,7 @@ import Control.Monad.IO.Class (liftIO) import Data.Git.Storage (isRepo, withRepo) import Data.String (fromString) import Data.Text (Text) -import Network.Git.Fetch.RefDiscovery +import Network.Git.Transport.HTTP.Fetch.RefDiscovery import Yesod.Core.Handler import Vervis.Content (GitRefDiscovery (..)) @@ -45,7 +45,7 @@ getGitRefDiscoverR sharer repo = do if serv == "git-upload-pack" then do rd <- liftIO $ withRepo pathG $ - flip buildRefDiscover' $ Just "git-upload-pack" + flip buildRefDiscover' "git-upload-pack" setHeader "Cache-Control" "no-cache" return GitRefDiscovery { grdContent = serializeRefDiscover rd