From 4e6188c44df9286847c4b237ca166e9ccd4d416b Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Wed, 5 Mar 2014 15:31:49 -0800
Subject: [PATCH] Use :: instead of | for accept-type

@maxcan's suggestion since this is Haskell
---
 wai-extra/Network/Wai/Middleware/RequestLogger.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wai-extra/Network/Wai/Middleware/RequestLogger.hs b/wai-extra/Network/Wai/Middleware/RequestLogger.hs
index a50f3b08..ea96bf2d 100644
--- a/wai-extra/Network/Wai/Middleware/RequestLogger.hs
+++ b/wai-extra/Network/Wai/Middleware/RequestLogger.hs
@@ -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