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

Make ServantErr throwable

Browse source
This commit is contained in:
Robert Klotzner 2016-02-26 12:27:19 +01:00
parent d46cde913c
commit b1ff2beb8a
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
servant-server/src/Servant/Server/Internal/ServantErr.hs
View file

@ -2,8 +2,10 @@
{-# LANGUAGE RecordWildCards #-}
module Servant.Server.Internal.ServantErr where
import Control.Exception (Exception)
import qualified Data.ByteString.Char8 as BS
import qualified Data.ByteString.Lazy as LBS
import Data.Typeable (Typeable)
import qualified Network.HTTP.Types as HTTP
import Network.Wai (Response, responseLBS)
@ -11,7 +13,10 @@ data ServantErr = ServantErr { errHTTPCode :: Int
, errReasonPhrase :: String
, errBody :: LBS.ByteString
, errHeaders :: [HTTP.Header]
} deriving (Show, Eq, Read)
} deriving (Show, Eq, Read, Typeable)
-- Make ServantErr throwable:
instance Exception ServantErr
responseServantErr :: ServantErr -> Response
responseServantErr ServantErr{..} = responseLBS status errHeaders errBody