Merge branch 'tvh-support-tls'
This commit is contained in:
commit
cdbe95bcdf
4 changed files with 6 additions and 1 deletions
|
@ -5,8 +5,10 @@ ghc:
|
|||
|
||||
before_install:
|
||||
- git clone https://github.com/haskell-servant/servant.git
|
||||
- git clone https://github.com/haskell-servant/servant-server.git
|
||||
- cabal sandbox init
|
||||
- cabal sandbox add-source servant/
|
||||
- cabal sandbox add-source servant-server/
|
||||
|
||||
notifications:
|
||||
irc:
|
||||
|
|
|
@ -44,6 +44,7 @@ library
|
|||
, either
|
||||
, exceptions
|
||||
, http-client
|
||||
, http-client-tls
|
||||
, http-types
|
||||
, network-uri >= 2.6
|
||||
, safe
|
||||
|
|
|
@ -19,6 +19,7 @@ import Data.String.Conversions
|
|||
import Data.Text
|
||||
import Data.Text.Encoding
|
||||
import Network.HTTP.Client
|
||||
import Network.HTTP.Client.TLS
|
||||
import Network.HTTP.Types
|
||||
import Network.URI
|
||||
import Servant.Common.BaseUrl
|
||||
|
@ -91,7 +92,7 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort) =
|
|||
|
||||
{-# NOINLINE __manager #-}
|
||||
__manager :: MVar Manager
|
||||
__manager = unsafePerformIO (newManager defaultManagerSettings >>= newMVar)
|
||||
__manager = unsafePerformIO (newManager tlsManagerSettings >>= newMVar)
|
||||
|
||||
__withGlobalManager :: (Manager -> IO a) -> IO a
|
||||
__withGlobalManager action = modifyMVar __manager $ \ manager -> do
|
||||
|
|
|
@ -253,3 +253,4 @@ pathGen = listOf $ elements $
|
|||
filter (not . (`elem` "?%[]/#")) $
|
||||
filter isPrint $
|
||||
map chr [0..127]
|
||||
|
||||
|
|
Loading…
Reference in a new issue