From 21667cc0497a9422c5241863420986c105a3ba9f Mon Sep 17 00:00:00 2001
From: "Julian K. Arni" <jkarni@gmail.com>
Date: Wed, 18 Feb 2015 11:24:56 +0100
Subject: [PATCH] Remove unneeded module

---
 src/Servant/API/ContentTypes.hs      | 3 +--
 src/Servant/API/ContentTypes/HTML.hs | 4 ----
 src/Servant/Utils/Links.hs           | 6 +++---
 3 files changed, 4 insertions(+), 9 deletions(-)
 delete mode 100644 src/Servant/API/ContentTypes/HTML.hs

diff --git a/src/Servant/API/ContentTypes.hs b/src/Servant/API/ContentTypes.hs
index 74363541..f6895612 100644
--- a/src/Servant/API/ContentTypes.hs
+++ b/src/Servant/API/ContentTypes.hs
@@ -11,12 +11,11 @@
 {-# LANGUAGE UndecidableInstances #-}
 module Servant.API.ContentTypes where
 
-import           Data.Typeable
-
 import           Control.Monad           (join)
 import qualified Data.ByteString         as BS
 import           Data.ByteString.Lazy    (ByteString)
 import           Data.String.Conversions (cs)
+import           Data.Typeable
 import           GHC.Exts                (Constraint)
 import qualified Network.HTTP.Media      as M
 
diff --git a/src/Servant/API/ContentTypes/HTML.hs b/src/Servant/API/ContentTypes/HTML.hs
deleted file mode 100644
index 681c6a8c..00000000
--- a/src/Servant/API/ContentTypes/HTML.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module Servant.API.ContentTypes.HTML where
-
-data HTML
-    deriving Typeable
diff --git a/src/Servant/Utils/Links.hs b/src/Servant/Utils/Links.hs
index 52a8b08c..3ab9ae7d 100644
--- a/src/Servant/Utils/Links.hs
+++ b/src/Servant/Utils/Links.hs
@@ -20,7 +20,7 @@
 -- >>>
 -- >>>
 -- >>>
--- >>> type Hello = "hello" :> Get Int
+-- >>> type Hello = "hello" :> Get '[JSON] Int
 -- >>> type Bye   = "bye"   :> QueryParam "name" String :> Delete
 -- >>> type API   = Hello :<|> Bye
 -- >>> let api = Proxy :: Proxy API
@@ -40,7 +40,7 @@
 -- function that accepts that input and generates a link. This is best shown
 -- with an example. Here, a link is generated with no parameters:
 --
--- >>> let hello = Proxy :: Proxy ("hello" :> Get Int)
+-- >>> let hello = Proxy :: Proxy ("hello" :> Get '[JSON] Int)
 -- >>> print (safeLink api hello :: URI)
 -- hello
 --
@@ -74,7 +74,7 @@
 -- <BLANKLINE>
 -- <interactive>:64:1:
 --     Could not deduce (Or
---                         (IsElem' Delete (Get Int))
+--                         (IsElem' Delete (Get '[JSON] Int))
 --                         (IsElem'
 --                            ("hello" :> Delete)
 --                            ("bye" :> (QueryParam "name" String :> Delete))))