Types.hs

-- |
-- Module    : Data.Ini.Types
-- Copyright : 2011 Magnus Therning
-- License   : BSD3
module Data.Ini.Types where

import qualified Data.Map as M
import Control.Arrow (second)

type Config = M.Map SectionName Section

type SectionName = String
type Section = M.Map OptionName OptionValue

type OptionName = String
type OptionValue = String

-- useful since Map doesn't have any Serial instance
cfgFromList :: [(SectionName, [(OptionName, OptionValue)])] -> Config
cfgFromList = M.fromList . map (second M.fromList)

cfgToList :: Config -> [(SectionName, [(OptionName, OptionValue)])]
cfgToList = M.toList . M.map M.toList