thunderstrike/purescript-yaml
thunderstrike/purescript-yaml
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added strMapToYaml instance

Browse Source
This commit is contained in:
Dominick Gendill 2017-05-09 17:43:52 -06:00
parent 849484bf3f
commit ae9461cbc6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/YAML/Foreign/Encode.purs
View File

@ -1,10 +1,12 @@
module Data.YAML.Foreign.Encode where
import Data.Map as M
import Data.StrMap as StrMap
import Data.Array (toUnfoldable)
import Data.Function.Uncurried (Fn4, runFn4)
import Data.List (List)
import Data.Maybe (Maybe, maybe)
import Data.StrMap (StrMap, insert)
import Data.Tuple (Tuple(..), fst, snd)
import Prelude (class Eq, class Show, map, show, ($), (<>), (==), (<<<))
import Unsafe.Coerce (unsafeCoerce)
@ -44,6 +46,9 @@ instance eqYValue :: Eq YValue where
class ToYAML a where
toYAML :: a -> YValue
instance strMapToYAML :: (ToYAML a) => ToYAML (StrMap a) where
toYAML strMap = YObject $ StrMap.fold (\acc key value -> M.insert key (toYAML value) acc) M.empty strMap
instance booleanToYAML :: ToYAML Boolean where
toYAML = YBoolean