Use :: instead of | for accept-type

@maxcan's suggestion since this is Haskell
This commit is contained in:
Greg Weber 2014-03-05 15:31:49 -08:00
parent 6be1a5d45c
commit 4e6188c44d

View File

@ -234,7 +234,7 @@ detailedMiddleware' cb getAddColor app req = do
liftIO $ cb $ mconcat $ map toLogStr $ addColor (requestMethod req) ++
[ " "
, rawPathInfo req
, " | "
, " :: "
, accept
, paramsToBS "GET " getParams
, paramsToBS "POST " postParams