@@ -31,7 +31,7 @@ import Language.Haskell.TH.Quote
31import Data.Yaml hiding (decodeFile)
31import Data.Yaml hiding (decodeFile)
33#if MIN_VERSION_template_haskell(2,9,0)
33#if MIN_VERSION_template_haskell(2,9,0)
34−-- | Decode a @yaml@ file at compile time. Only available on GHC version @7.8.1@
34+-- | Decode a YAML file at compile time. Only available on GHC version @7.8.1@
35-- or higher.
35-- or higher.
37-- @since 0.8.19.0
37-- @since 0.8.19.0
@@ -60,6 +60,22 @@ yamlExp input = case decodeValue input of
60 Left err -> fail err
60 Left err -> fail err
61 Right a -> lift a
61 Right a -> lift a
63+-- | A @QuasiQuoter@ for YAML.
70+-- {-\# LANGUAGE QuasiQuotes \#-}
71+-- import Data.Yaml.TH
63yamlQQ :: QuasiQuoter
79yamlQQ :: QuasiQuoter
64yamlQQ = QuasiQuoter {
80yamlQQ = QuasiQuoter {
65 quoteExp = yamlExp
81 quoteExp = yamlExp