diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-04-06 14:26:46 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-04-06 14:26:46 +0200 |
| commit | e81468e0f64fdbe05794d5f8ccaebc00ee474ee2 (patch) | |
| tree | 882c422a312ed3e6eb8eaacfcc9c292a09296845 /src/Data/Yaml | |
| parent | 3f3e09672d3d279bc5cbaa8b3ac7508abc98aa2d (diff) | |
| download | hakyll-e81468e0f64fdbe05794d5f8ccaebc00ee474ee2.tar.gz | |
Initial YAML support
See #225
Diffstat (limited to 'src/Data/Yaml')
| -rw-r--r-- | src/Data/Yaml/Extended.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/Data/Yaml/Extended.hs b/src/Data/Yaml/Extended.hs new file mode 100644 index 0000000..9ad05f3 --- /dev/null +++ b/src/Data/Yaml/Extended.hs @@ -0,0 +1,17 @@ +module Data.Yaml.Extended + ( module Data.Yaml + , toString + , toList + ) where + +import qualified Data.Text as T +import qualified Data.Vector as V +import Data.Yaml + +toString :: Value -> Maybe String +toString (String t) = Just (T.unpack t) +toString _ = Nothing + +toList :: Value -> Maybe [Value] +toList (Array a) = Just (V.toList a) +toList _ = Nothing |