sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 10:14:52 +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.Git.Storage (isRepo, withRepo)
import Data.String (fromString) import Data.String (fromString)
import Data.Text (Text) import Data.Text (Text)
import Network.Git.Fetch.RefDiscovery import Network.Git.Transport.HTTP.Fetch.RefDiscovery
import Yesod.Core.Handler import Yesod.Core.Handler
import Vervis.Content (GitRefDiscovery (..)) import Vervis.Content (GitRefDiscovery (..))
@ -45,7 +45,7 @@ getGitRefDiscoverR sharer repo = do
if serv == "git-upload-pack" if serv == "git-upload-pack"
then do then do
rd <- liftIO $ withRepo pathG $ rd <- liftIO $ withRepo pathG $
flip buildRefDiscover' $ Just "git-upload-pack" flip buildRefDiscover' "git-upload-pack"
setHeader "Cache-Control" "no-cache" setHeader "Cache-Control" "no-cache"
return GitRefDiscovery return GitRefDiscovery
{ grdContent = serializeRefDiscover rd { grdContent = serializeRefDiscover rd