Explicit export list in ErrorFormatter.hs
This commit is contained in:
parent
43cf589e0e
commit
d740c18992
1 changed files with 16 additions and 8 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue