typeable/wai
1
0
Fork 0
mirror of https://github.com/typeable/wai.git synced 2024-12-29 09:04:33 +03:00
Code Issues Projects Releases Wiki Activity

catching up network 3.0.

Browse Source
This commit is contained in:
Kazu Yamamoto 2019-01-21 12:14:35 +09:00
parent d11d63f1a6
commit 59ea282068
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
wai-extra/Network/Wai/Middleware/RequestLogger/JSON.hs
View File

@ -1,4 +1,5 @@
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE CPP #-}
module Network.Wai.Middleware.RequestLogger.JSON (formatAsJSON) where
@ -75,8 +76,10 @@ sockToJSON (SockAddrInet6 pn _ ha _) =
]
sockToJSON (SockAddrUnix sock) =
object [ "unix" .= sock ]
#if !MIN_VERSION_network(3,0,0)
sockToJSON (SockAddrCan i) =
object [ "can" .= i ]
#endif
queryItemToJSON :: QueryItem -> Value
queryItemToJSON (name, mValue) = toJSON (decodeUtf8With lenientDecode name, fmap (decodeUtf8With lenientDecode) mValue)