swiss-army-knife-1.2.0.0: playground/TConfig.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedRecordDot #-}

import Config ( getKnifeConfig )
import Data.Aeson (FromJSON, ToJSON)
import GHC.Generics (Generic)

data PlaygroundConfig = PlaygroundConfig
  { list     :: [String]
  , name     :: Maybe String
  , switchit :: Bool
  } deriving (Show, Generic)

instance FromJSON PlaygroundConfig
instance ToJSON PlaygroundConfig

defaultPlaygroundConfig :: PlaygroundConfig
defaultPlaygroundConfig = PlaygroundConfig { list = ["one", "two", "three"]
                                           , switchit = False
                                           , name = Just "pg-config"
                                           }

main :: IO ()
main = do
  cfg <- getKnifeConfig "playground" defaultPlaygroundConfig
  putStrLn $ show cfg
  pure ()

-- >>> c <- getKnifeConfig "playground" defaultPlaygroundConfig
-- >>> show $ list c
-- "[\"one\",\"two\",\"three\"]"