Use comma rather than semicolon to split header values (#698)

2016-08-21 15:26:00 -07:00
parent 6f737056a2
commit 7278507c42
5 changed files with 8 additions and 7 deletions
@@ -176,7 +176,7 @@ userApiRequest schema req reqBody =
  hasPrefer val   = any (\(h,v) -> h == "Prefer" && val `elem` split v) hdrs
    where
        split :: BS.ByteString -> [Text]
-        split = map T.strip . T.split (==';') . toS
+        split = map T.strip . T.split (==',') . toS
  singular        = hasPrefer "plurality=singular"
  representation
    | hasPrefer "return=representation" = Full