df1-wai (empty) → 0.1

raw patch · 5 files changed

+112/−0 lines, 5 filesdep +basedep +bytestringdep +df1

Dependencies added: base, bytestring, df1, http-types, text, wai

Files

• CHANGELOG.md +4/−0
• LICENSE.txt +30/−0
• README.md +3/−0
• df1-wai.cabal +29/−0
• lib/Df1/Wai.hs +46/−0

@@ -0,0 +1,4 @@+# Version 0.1++* Initial version.+

@@ -0,0 +1,30 @@+Copyright (c) 2024, Renzo Carbonara++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Renzo Carbonara nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,3 @@+# df1-wai++`df1` formatting of `wai` requests and responses.

@@ -0,0 +1,29 @@+cabal-version: 1.18+name: df1-wai+version: 0.1+author: Renzo Carbonara+maintainer: renλren.zone+copyright: Renzo Carbonara 2024+license: BSD3+license-file: LICENSE.txt+extra-source-files: README.md CHANGELOG.md+category: Logging+build-type: Simple+synopsis: Df1 log formatting for WAI requests and responses+description: Df1 log formatting for WAI requests and responses+homepage: https://github.com/k0001/di+bug-reports: https://github.com/k0001/di/issues++library+  hs-source-dirs: lib+  default-language: GHC2021+  exposed-modules: Df1.Wai+  build-depends:+    base >=4.9 && <5.0,+    bytestring,+    df1 >=0.3,+    http-types,+    text,+    wai+  ghc-options: -Wall -O2+

@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# OPTIONS_GHC -Wno-orphans #-}++module Df1.Wai (request, response) where++import Data.ByteString.Builder qualified as BB+import Data.Functor+import Data.List qualified as List+import Data.Maybe+import Data.Text.Encoding qualified as T+import Data.Text.Lazy qualified as TL+import Data.Text.Lazy.Encoding qualified as TL+import Df1+import Network.HTTP.Types+import Network.Wai++request :: Request -> [(Key, Value)]+request r =+   mconcat+      [ maybeToList $+         requestHeaderHost r <&> \x ->+            ("host", value (T.decodeUtf8 x))+      ,+         [ ("method", value (T.decodeUtf8 (requestMethod r)))+         ,+            ( "path"+            , value (TL.fromChunks ("/" : List.intersperse "/" (pathInfo r)))+            )+         ,+            ( "query"+            , value $+               TL.decodeUtf8 $+                  BB.toLazyByteString $+                     "?" <> renderQueryBuilder False (queryString r)+            )+         , ("peer", value (show (remoteHost r)))+         ]+      , maybeToList $+         requestHeaderReferer r <&> \x ->+            ("referer", value (T.decodeUtf8 x))+      ]++response :: Response -> [(Key, Value)]+response r =+   [ ("status", value (statusCode (responseStatus r)))+   ]