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

Explicit export list in ErrorFormatter.hs

Browse source
This commit is contained in:
Maxim Koltsov 2020-07-30 19:05:46 +03:00
parent 43cf589e0e
commit d740c18992
No known key found for this signature in database
GPG key ID: 52B5EDB68BF54442
1 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
servant-server/src/Servant/Server/Internal/ErrorFormatter.hs
View file

@ -1,11 +1,19 @@
{-# LANGUAGE DataKinds #-} {-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-} {-# LANGUAGE PolyKinds #-}
{-# LANGUAGE PolyKinds #-} {-# LANGUAGE RankNTypes #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeOperators #-}
module Servant.Server.Internal.ErrorFormatter module Servant.Server.Internal.ErrorFormatter
where ( ErrorFormatters(..)
, ErrorFormatter
, NotFoundErrorFormatter
, DefaultErrorFormatters
, defaultErrorFormatters
, MkContextWithErrorFormatter
, mkContextWithErrorFormatter
) where
import Data.String.Conversions import Data.String.Conversions
(cs) (cs)
@ -72,8 +80,8 @@ err400Formatter _ _ e = err400 { errBody = cs e }
-- These definitions suppress "unused import" warning. -- These definitions suppress "unused import" warning.
-- The imorts are needed for Haddock to correctly link to them. -- The imorts are needed for Haddock to correctly link to them.
_RB :: Proxy ReqBody _RB :: Proxy ReqBody
_RB = undefined _RB = Proxy
_C :: Proxy Capture _C :: Proxy Capture
_C = undefined _C = Proxy
_CT :: Proxy Context _CT :: Proxy Context
_CT = undefined _CT = Proxy