Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

webserver: use parseHttpAccept

  • Loading branch information...
commit ac2c2e7d7d9d564d70ba41f99d0b1abdafaabf29 1 parent 968cf3e
@kfish authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  System/Remote/WebServer.hs
View
2  System/Remote/WebServer.hs
@@ -70,7 +70,7 @@ getPath counters gauges labels req
toText = T.pack . map (chr . fromIntegral) . S.unpack
acceptCT :: Comm a => CT -> a -> Bool
-acceptCT ct = maybe False (S.isInfixOf ct) . lookupField FkAccept
+acceptCT ct = maybe False ((ct `elem`) . parseHttpAccept) . lookupField FkAccept
splitAPI :: T.Text -> (T.Text, Maybe T.Text)
splitAPI path = f components
Please sign in to comment.
Something went wrong with that request. Please try again.