fb4b8ab5ec
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>
24 lines
709 B
Haskell
24 lines
709 B
Haskell
{-# 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
|
|
|]
|
|
}
|