@@ -0,0 +1,39 @@
1+{-# LANGUAGE LambdaCase #-}
2+{-# LANGUAGE ScopedTypeVariables #-}
3+{-# LANGUAGE TemplateHaskell #-}
4+
5+module Data.Yaml.TH
6+ ( -- * Decoding
7+ decodeFile
8+ -- * Re-exports from "Data.Yaml"
9+ , Value (..)
10+ , Parser
11+ , Object
12+ , Array
13+ , object
14+ , array
15+ , (.=)
16+ , (.:)
17+ , (.:?)
18+ , (.!=)
19+ , FromJSON (..)
20+ ) where
21+
22+import Data.Yaml hiding (decodeFile)
23+import Language.Haskell.TH
24+import Language.Haskell.TH.Syntax
25+
26+-- | Decode a @yaml@ file at compile time.
27+--
28+-- @
29+-- {-# LANGUAGE TemplateHaskell #-}
30+--
31+-- config :: Config
32+-- config = $$('decodeFile' "config.yaml")
33+-- @
34+decodeFile :: forall a. (Lift a, FromJSON a) => FilePath -> Q (TExp a)
35+decodeFile path = do
36+ addDependentFile path
37+ runIO (decodeFileEither path) >>= \case
38+ Left err -> fail (prettyPrintParseException err)
39+ Right x -> TExp <$> lift (x :: a)