Adapt to module rename in hit-network

This commit is contained in:
fr33domlover 2016-04-23 21:09:24 +00:00
parent bf355de715
commit de730cf573

View file

@ -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