blob: 9ad05f307b42c1394eefe45b762d82848b1c77da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
|
