summaryrefslogtreecommitdiff
path: root/fig-web/src/Fig/Web/Module/Misc.hs
diff options
context:
space:
mode:
Diffstat (limited to 'fig-web/src/Fig/Web/Module/Misc.hs')
-rw-r--r--fig-web/src/Fig/Web/Module/Misc.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Module/Misc.hs b/fig-web/src/Fig/Web/Module/Misc.hs
index b193314..d16df6c 100644
--- a/fig-web/src/Fig/Web/Module/Misc.hs
+++ b/fig-web/src/Fig/Web/Module/Misc.hs
@@ -15,6 +15,7 @@ import qualified Fig.Web.DB as DB
public :: Module
public a = do
onGet "/api/motd" do
+ log "getting motd"
DB.get a.db "motd" >>= \case
Nothing -> respondText ""
Just val -> respondText $ decodeUtf8 val