From 55f5a78b1bb1116e58094cf6c26aa4f7fc23a53e Mon Sep 17 00:00:00 2001 From: Andy Date: Tue, 21 Jul 2020 01:02:05 +0200 Subject: [PATCH] Docs: Hoist Server "Footnote" --- .../hoist-server-with-context/HoistServerWithContext.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doc/cookbook/hoist-server-with-context/HoistServerWithContext.lhs b/doc/cookbook/hoist-server-with-context/HoistServerWithContext.lhs index 23d08462..2c50c2e9 100644 --- a/doc/cookbook/hoist-server-with-context/HoistServerWithContext.lhs +++ b/doc/cookbook/hoist-server-with-context/HoistServerWithContext.lhs @@ -287,7 +287,7 @@ mkApp cfg cs jwts ctx = (flip runReaderT ctx) (adminServer cs jwts) ``` -One footenote: because we'd like our logs to be in JSON form, we'll also create a `Middleware` object +One footnote: because we'd like our logs to be in JSON form, we'll also create a `Middleware` object so that `Warp` *also* will emit logs as JSON. This will ensure *all* logs are emitted as JSON: ```haskell