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

Review fix

Browse Source
This commit is contained in:
Julian K. Arni 2015-02-24 14:05:04 +01:00
parent 0789682cf8
commit 81c3589624
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Servant/Server/Internal.hs
View File

@ -276,7 +276,7 @@ instance ( AllCTRender ctypes a
Right output -> do
let accH = fromMaybe "*/*" $ lookup hAccept $ requestHeaders request
case handleAcceptH (Proxy :: Proxy ctypes) (AcceptHeader accH) output of
Nothing -> responseLBS (mkStatus 406 "") [] ""
Nothing -> responseLBS (mkStatus 406 "Not Acceptable") [] ""
Just (contentT, body) -> responseLBS ok200 [ ("Content-Type"
, cs contentT)] body
Left (status, message) ->