git.iko.soy/servant
on master help sign in
add Show, Eq and Ord for BaseUrl
0e9d075Sönke Hahn
src/Servant/Client.hs+2
compare with master
unifiedsplit
@@ -15,12 +15,14 @@ import System.IO.Unsafe
15-- * Accessing APIs as a Client
15-- * Accessing APIs as a Client
16
16
17data Scheme = Http | Https
17data Scheme = Http | Https
18+ deriving (Show, Eq, Ord)
18
19
19data BaseUrl = BaseUrl {
20data BaseUrl = BaseUrl {
20 baseUrlScheme :: Scheme,
21 baseUrlScheme :: Scheme,
21 baseUrlHost :: String,
22 baseUrlHost :: String,
22 baseUrlPort :: Int
23 baseUrlPort :: Int
23 }
24 }
25+ deriving (Show, Eq, Ord)
24
26
25httpBaseUrl :: String -> BaseUrl
27httpBaseUrl :: String -> BaseUrl
26httpBaseUrl host = BaseUrl Http host 80
28httpBaseUrl host = BaseUrl Http host 80