git.iko.soy/purestack-dev/project-m36-rest
on master help sign in
Added logging
commitfc87f8ef3824c8b823647154a7cd496a5b598324 authoriko <mail@iko.soy> dateThu 3 Jul 2025, 23:23 (1 year ago) parentb137dc5
3 files changed+9−2
compare with master
unifiedsplit
package.yaml+1 result+1 src/ProjectM36/Rest.hs+7−2
package.yaml+1
@@ -15,6 +15,7 @@ library:
1515 - base64
1616 - text
1717 - containers
18+ - wai-logger
1819
1920executable:
2021 main: Main.hs
resultnew file+1
@@ -0,0 +1 @@
1+/nix/store/r7qq705mq8sp0l20wmj1b66vxm78zvl8-project-m36-rest-0.0.0
src/ProjectM36/Rest.hs+7−2
@@ -19,6 +19,7 @@ import Data.Traversable
1919import Data.Vector qualified as V
2020import GHC.Generics (Generic)
2121import Network.Wai.Handler.Warp qualified as Warp
22+import Network.Wai.Logger (withStdoutLogger)
2223import Options.Applicative
2324import ProjectM36.Base
2425import ProjectM36.Client
@@ -225,8 +226,12 @@ run = do
225226 Right x -> pure x
226227 )
227228 close
228− ( \conn ->
229+ ( \conn -> withStdoutLogger $ \logger ->
229230 Warp.runSettings
230− (Warp.defaultSettings & Warp.setServerName "project-m36-rest" & Warp.setPort opts.port)
231+ ( Warp.defaultSettings
232+ & Warp.setServerName "project-m36-rest"
233+ & Warp.setPort opts.port
234+ & Warp.setLogger logger
235+ )
231236 (genericServe (server conn))
232237 )