getConfig :: Configured a => Config -> String -> IO a
getConfig c k = do
    t <- Data.Configurator.lookup c (pack k)
    return $ fromMaybe (throw $ ConfigException k) t
getConfig :: Configured a => Config -> String -> IO a
getConfig c k = do
    t <- Data.Configurator.lookup c (pack k)
    return $ fromMaybe (throw $ ConfigException k) t
getConfig c k = do
    t <- Data.Configurator.lookup c (pack k)
    return $ fromMaybe (throw $ ConfigException k) t