module Env where

import Conf
import State

type Dispatch = String -> (String -> IO ()) -> Env -> IO ()
data Env = DispatchEnv State Conf Dispatch | Env State Conf

envGetInt :: String -> Env -> Int
envGetInt key (DispatchEnv _ conf _) = getUnwrappedInt key conf

envGet :: String -> Env -> String
envGet key (DispatchEnv _ conf _) = getUnwrapped key conf