Adapt to module rename in hit-network
This commit is contained in:
parent
bf355de715
commit
de730cf573
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue