Hi, The <a href="https://github.com/kazu-yamamoto/logger/blob/master

Ah, thanks. You refer to the example in the manual (<a href="http://hackage.haskell.or

Here is a fixed version. I will replace the example. <div class="highlight highlig

Example not compiling about logger HOT 6 CLOSED

ericsagnes commented on August 11, 2024

Example not compiling

from logger.

Comments (6)

kazu-yamamoto commented on August 11, 2024

What is wai_logger.hs? The link refers to code in wai-logger which I think is correct.

from logger.

ericsagnes commented on August 11, 2024

Sorry for not being precise, wai_logger.hs is the code from the example:

wai_logger.hs:

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Blaze.ByteString.Builder (fromByteString)
import Control.Monad.IO.Class (liftIO)
import qualified Data.ByteString.Char8 as BS
import Network.HTTP.Types (status200)
import Network.Wai (Application, responseBuilder)
import Network.Wai.Handler.Warp (run)
import Network.Wai.Logger (withStdoutLogger, ApacheLogger)

main :: IO ()
main = withStdoutLogger $ \aplogger ->
    run 3000 $ logApp aplogger

logApp :: ApacheLogger -> Application
logApp aplogger req = do
    liftIO $ aplogger req status (Just len)
    return $ responseBuilder status hdr msg
  where
    status = status200
    hdr = [("Content-Type", "text/plain")
          ,("Content-Length", BS.pack (show len))]
    pong = "PONG"
    len = fromIntegral $ BS.length pong
    msg = toLogStr pong

from logger.

kazu-yamamoto commented on August 11, 2024

Ah, thanks. You refer to the example in the manual (http://hackage.haskell.org/package/wai-logger-2.2.4/docs/Network-Wai-Logger.html).
I understand the problem. Please wait.

from logger.

kazu-yamamoto commented on August 11, 2024

Here is a fixed version. I will replace the example.

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Blaze.ByteString.Builder (fromByteString)
import Control.Monad.IO.Class (liftIO)
import qualified Data.ByteString.Char8 as BS
import Network.HTTP.Types (status200)
import Network.Wai (Application, responseBuilder)
import Network.Wai.Handler.Warp (run)
import Network.Wai.Logger (withStdoutLogger, ApacheLogger)

main :: IO ()
main = withStdoutLogger $ \aplogger ->
    run 3000 $ logApp aplogger

logApp :: ApacheLogger -> Application
logApp aplogger req response = do
    liftIO $ aplogger req status (Just len)
    response $ responseBuilder status hdr msg
  where
    status = status200
    hdr = [("Content-Type", "text/plain")]
    pong = "PONG"
    msg = fromByteString pong
    len = fromIntegral $ BS.length pong