eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added instance Generic BaseUrl

Browse Source
This commit is contained in:
Sönke Hahn 2014-11-05 20:23:38 +08:00
parent 0e9d075ab4
commit 85aceadc60
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Servant/Client.hs
View File

@ -1,5 +1,6 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}
module Servant.Client where
import Control.Concurrent
@ -7,6 +8,7 @@ import Control.Monad.Catch
import Data.ByteString.Lazy
import Data.Proxy
import Data.Text
import GHC.Generics
import Network.HTTP.Client hiding (Proxy)
import Network.HTTP.Types
import Network.URI
@ -15,14 +17,14 @@ import System.IO.Unsafe
-- * Accessing APIs as a Client
data Scheme = Http | Https
deriving (Show, Eq, Ord)
deriving (Show, Eq, Ord, Generic)
data BaseUrl = BaseUrl {
baseUrlScheme :: Scheme,
baseUrlHost :: String,
baseUrlPort :: Int
}
deriving (Show, Eq, Ord)
deriving (Show, Eq, Ord, Generic)
httpBaseUrl :: String -> BaseUrl
httpBaseUrl host = BaseUrl Http host 80