chore(users/Profpatsch): park mailbox-org
I should probably remove the default.nix files in these as well so they don’t get built on CI. Change-Id: I09764f2ee198ab4016a1649f1675f7c45d207b09 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12580 Tested-by: BuildkiteCI Reviewed-by: Profpatsch <mail@profpatsch.de>
This commit is contained in:
parent
2d6e98f8a4
commit
fb4b8ab5ec
7 changed files with 0 additions and 5 deletions
24
users/Profpatsch/parked/mailbox-org/src/AesonQQ.hs
Normal file
24
users/Profpatsch/parked/mailbox-org/src/AesonQQ.hs
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
{-# LANGUAGE TemplateHaskellQuotes #-}
|
||||
|
||||
module AesonQQ where
|
||||
|
||||
import Data.Aeson qualified as Json
|
||||
import Language.Haskell.TH.Quote (QuasiQuoter)
|
||||
import PossehlAnalyticsPrelude
|
||||
import PyF qualified
|
||||
import PyF.Internal.QQ qualified as PyFConf
|
||||
|
||||
aesonQQ :: QuasiQuoter
|
||||
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
|
||||
|]
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue