@@ -15,12 +15,14 @@ import System.IO.Unsafe
1515-- * Accessing APIs as a Client
1616
1717data Scheme = Http | Https
18+ deriving (Show, Eq, Ord)
1819
1920data BaseUrl = BaseUrl {
2021 baseUrlScheme :: Scheme,
2122 baseUrlHost :: String,
2223 baseUrlPort :: Int
2324 }
25+ deriving (Show, Eq, Ord)
2426
2527httpBaseUrl :: String -> BaseUrl
2628httpBaseUrl host = BaseUrl Http host 80