sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 17:24:53 +09:00
Code Issues Activity

Adapt to module rename in hit-network

Browse source
This commit is contained in:
fr33domlover 2016-04-23 21:09:24 +00:00
parent bf355de715
commit de730cf573
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Handler/Git.hs
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