21667cc · typeable/servant

git.iko.soy/typeable/servant

Remove unneeded module

commit21667cc0497a9422c5241863420986c105a3ba9f authorJulian K. Arni <jkarni@gmail.com> dateWed 18 Feb 2015, 11:24 (12 years ago) parentdab3c9b

3 files changed+4−9

compare with master

unifiedsplit

src/Servant/API/ContentTypes.hs+1−2 src/Servant/API/ContentTypes/HTML.hs−4 src/Servant/Utils/Links.hs+3−3

src/Servant/API/ContentTypes.hs+1−2

@@ -11,12 +11,11 @@

1111{-# LANGUAGE UndecidableInstances #-}

1212module Servant.API.ContentTypes where

1313

14−import Data.Typeable

15−

1614import Control.Monad (join)

1715import qualified Data.ByteString as BS

1816import Data.ByteString.Lazy (ByteString)

1917import Data.String.Conversions (cs)

18+import Data.Typeable

2019import GHC.Exts (Constraint)

2120import qualified Network.HTTP.Media as M

2221

src/Servant/API/ContentTypes/HTML.hsdeleted−4

@@ -1,4 +0,0 @@

1−module Servant.API.ContentTypes.HTML where

2−

3−data HTML

4− deriving Typeable

src/Servant/Utils/Links.hs+3−3

@@ -20,7 +20,7 @@

2020-- >>>

2121-- >>>

2222-- >>>

23−-- >>> type Hello = "hello" :> Get Int

23+-- >>> type Hello = "hello" :> Get '[JSON] Int

2424-- >>> type Bye = "bye" :> QueryParam "name" String :> Delete

2525-- >>> type API = Hello :<|> Bye

2626-- >>> let api = Proxy :: Proxy API

@@ -40,7 +40,7 @@

4040-- function that accepts that input and generates a link. This is best shown

4141-- with an example. Here, a link is generated with no parameters:

4242--

43−-- >>> let hello = Proxy :: Proxy ("hello" :> Get Int)

43+-- >>> let hello = Proxy :: Proxy ("hello" :> Get '[JSON] Int)

4444-- >>> print (safeLink api hello :: URI)

4545-- hello

4646--

@@ -74,7 +74,7 @@

7474-- <BLANKLINE>

7575-- <interactive>:64:1:

7676-- Could not deduce (Or

77−-- (IsElem' Delete (Get Int))

77+-- (IsElem' Delete (Get '[JSON] Int))

7878-- (IsElem'

7979-- ("hello" :> Delete)

8080-- ("bye" :> (QueryParam "name" String :> Delete))))