gipeda-0.1.1: src/JsonSettings.hs

{-# LANGUAGE OverloadedStrings, RecordWildCards #-}

module JsonSettings where

import Data.Yaml
import Data.Aeson
import qualified Data.ByteString.Lazy as BS
import Data.Functor

jsonSettingsMain :: IO ()
jsonSettingsMain = do
    s <- either (error.show) id <$> decodeFileEither "settings.yaml"
    let o = object [ "settings" .= (s :: Object) ]
    BS.putStr (Data.Aeson.encode o)