h-irc-bot/src/IrcBot/JsonConfigDecoder.hs

{-# LANGUAGE OverloadedStrings #-}

module IrcBot.JsonConfigDecoder where

import Data.Aeson
import Network.Socket
import IrcBot.IrcBot
import qualified Data.ByteString.Lazy as C


instance FromJSON IServerAddress where
   parseJSON = withObject "IServerAddress" $ \o -> do
    server_     <- o .: "server"
    port_     <- o .: "port"
    ssl_      <- o .: "ssl"
    nickname_ <- o .: "nickname"
    channels_  <- o .: "channels"
    return $ IServerAddress server_ port_ ssl_ nickname_ channels_


instance FromJSON IOptions where
   parseJSON = withObject "IOptions" $ \o -> do
    servers_ <- o .: "servers"
    return $ IOptions servers_


--readConfigFile :: Maybe IServerAddress
--readConfigFile = C.readFile  ".connection.json" >>= \output -> decode output :: Maybe IServerAddress