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