eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Merge pull request #671 from reactormonk/typeerror

Browse source 
TypeError annotations for AllCTRender
This commit is contained in:
Oleg Grenrus 2017-05-14 19:38:46 +03:00 committed by GitHub
commit 57696dcd6f
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
servant/src/Servant/API/ContentTypes.hs
View file

@ -98,6 +98,10 @@ import Web.FormUrlEncoded (FromForm, ToForm,
import Prelude () import Prelude ()
import Prelude.Compat import Prelude.Compat
#if MIN_VERSION_base(4,9,0)
import qualified GHC.TypeLits as TL
#endif
-- * Provided content types -- * Provided content types
data JSON deriving Typeable data JSON deriving Typeable
data PlainText deriving Typeable data PlainText deriving Typeable
@ -182,6 +186,12 @@ instance OVERLAPPABLE_
amrs = allMimeRender pctyps val amrs = allMimeRender pctyps val
lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs
#if MIN_VERSION_base(4,9,0)
instance TL.TypeError ('TL.Text "No instance for (), use NoContent instead.")
=> AllCTRender '[] () where
handleAcceptH _ _ _ = error "unreachable"
#endif
-------------------------------------------------------------------------- --------------------------------------------------------------------------
-- * Unrender -- * Unrender