From a4750fa5371d1bd2426c29bc1d33389d3f88d820 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 24 Sep 2019 18:14:07 -0400 Subject: [PATCH] move haddock block so haddock will build --- Utility/GitLFS.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/Utility/GitLFS.hs b/Utility/GitLFS.hs index 94a3b67176..99015baf81 100644 --- a/Utility/GitLFS.hs +++ b/Utility/GitLFS.hs @@ -7,6 +7,16 @@ - Licensed under the GNU AGPL version 3 or higher. -} +-- | This implementation of the git-lfs API uses http Request and Response, +-- but leaves actually connecting up the http client to the user. +-- +-- You'll want to use a Manager that supports https, since the protocol +-- uses http basic auth. +-- +-- Some LFS servers, notably Github's, may require a User-Agent header +-- in some of the requests, in order to allow eg, uploads. No such header +-- is added by default, so be sure to add your own. + {-# LANGUAGE DeriveGeneric, FlexibleInstances, FlexibleContexts #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE LambdaCase #-} @@ -54,16 +64,6 @@ module Utility.GitLFS ( HTTPHeaderValue, ) where --- | This implementation of the git-lfs API uses http Request and Response, --- but leaves actually connecting up the http client to the user. --- --- You'll want to use a Manager that supports https, since the protocol --- uses http basic auth. --- --- Some LFS servers, notably Github's, may require a User-Agent header --- in some of the requests, in order to allow eg, uploads. No such header --- is added by dedault, so be sure to add your own. - import Data.Aeson import Data.Aeson.Types import GHC.Generics