conf.hs

module Tob.Config where

import Data.ConfigFile (readstring, emptyCP, get)
import Tob.Types

getConfig :: FilePath -> IO Config
getConfig f = do
  s <- readFile f
  let config = do
    c <- readstring emptyCP s
    srv <- get c "BOT" "server"
    prt <- get c "BOT" "port"
    chn <- get c "BOT" "channel"
    nck <- get c "BOT" "nick"
    nme <- get c "BOT" "name"
    own <- get c "BOT" "owner"
    return Config {
      server = srv,
      port = prt,
      chan = chn,
      nick = nck,
      name = nme,
      botowner = own }
  case config of
    Left err -> error $ show err 
    Right config -> return config

src/Tob/Config.hs:10:5: parse error on input `c'