From f627ee84b3a002e8f1fe38d7859860faf7d40be9 Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Sun, 15 Jan 2023 21:20:40 +0100 Subject: feat(users/Profpatsch/mailbox-org): add simple request json example Adds a simple json quasiquoter thingy. Json can be sent to the `/mailfilter?action=update` endpoint. Change-Id: Iba80c2ab69178e431519933c4a01cd68aaa9f637 Reviewed-on: https://cl.tvl.fyi/c/depot/+/7839 Tested-by: BuildkiteCI Autosubmit: Profpatsch Reviewed-by: Profpatsch --- users/Profpatsch/mailbox-org/AesonQQ.hs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 users/Profpatsch/mailbox-org/AesonQQ.hs (limited to 'users/Profpatsch/mailbox-org/AesonQQ.hs') diff --git a/users/Profpatsch/mailbox-org/AesonQQ.hs b/users/Profpatsch/mailbox-org/AesonQQ.hs new file mode 100644 index 000000000000..02e1c2f3dff0 --- /dev/null +++ b/users/Profpatsch/mailbox-org/AesonQQ.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE TemplateHaskellQuotes #-} + +module AesonQQ where + +import Data.Aeson qualified as Json +import Data.Either qualified as Either +import MyPrelude +import PyF qualified +import PyF.Internal.QQ qualified as PyFConf + +aesonQQ = + PyF.mkFormatter + "aesonQQ" + PyF.defaultConfig + { PyFConf.delimiters = Just ('|', '|'), + PyFConf.postProcess = \exp -> do + -- TODO: this does not throw an error at compilation time if the json does not parse + [| + case Json.eitherDecodeStrict' @Json.Value $ textToBytesUtf8 $ stringToText $(exp) of + Left err -> error err + Right a -> a + |] + } -- cgit 1.4.1