@@ -0,0 +1,39 @@
1+{-# LANGUAGE LambdaCase #-}
2+{-# LANGUAGE ScopedTypeVariables #-}
3+{-# LANGUAGE TemplateHaskell #-}
8+ -- * Re-exports from "Data.Yaml"
22+import Data.Yaml hiding (decodeFile)
23+import Language.Haskell.TH
24+import Language.Haskell.TH.Syntax
26+-- | Decode a @yaml@ file at compile time.
29+-- {-# LANGUAGE TemplateHaskell #-}
32+-- config = $$('decodeFile' "config.yaml")
34+decodeFile :: forall a. (Lift a, FromJSON a) => FilePath -> Q (TExp a)
36+ addDependentFile path
37+ runIO (decodeFileEither path) >>= \case
38+ Left err -> fail (prettyPrintParseException err)
39+ Right x -> TExp <$> lift (x :: a)