import Data.Aeson
import qualified Data.HashMap as HashMap
import qualified Data.ByteString.Lazy as BL
import qualified Data.Text as T

main :: IO ()
main = do
	input <- BL.readFile "test.json"
	let parsed = decode input :: Maybe Value
	case parsed of
		Nothing -> error "invalid JSON"
		Just (Object omap) -> parseConfigMap omap

--parseConfigMap :: HashMap.HashMap T.Text Value -> IO ()
parseConfigMap configObject = do
	return ()