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 Right output -> do
let accH = fromMaybe "*/*" $ lookup hAccept $ requestHeaders request let accH = fromMaybe "*/*" $ lookup hAccept $ requestHeaders request
case handleAcceptH (Proxy :: Proxy ctypes) (AcceptHeader accH) output of 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" Just (contentT, body) -> responseLBS ok200 [ ("Content-Type"
, cs contentT)] body , cs contentT)] body
Left (status, message) -> Left (status, message) ->