From 0e9d075ab40cc65b2ecb5ae363955d95c84ca55b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=B6nke=20Hahn?= <soenke.hahn@zalora.com>
Date: Wed, 5 Nov 2014 20:10:46 +0800
Subject: [PATCH] add Show, Eq and Ord for BaseUrl

---
 src/Servant/Client.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Servant/Client.hs b/src/Servant/Client.hs
index f786352b..af792299 100644
--- a/src/Servant/Client.hs
+++ b/src/Servant/Client.hs
@@ -15,12 +15,14 @@ import System.IO.Unsafe
 -- * Accessing APIs as a Client
 
 data Scheme = Http | Https
+  deriving (Show, Eq, Ord)
 
 data BaseUrl = BaseUrl {
   baseUrlScheme :: Scheme,
   baseUrlHost :: String,
   baseUrlPort :: Int
  }
+  deriving (Show, Eq, Ord)
 
 httpBaseUrl :: String -> BaseUrl
 httpBaseUrl host = BaseUrl Http host 80