blob: 30c005d3ce36dafda8f38c49004ad78f0d09b8eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module Env where
import Conf
import State
type Dispatch = String -> (String -> IO ()) -> Env -> IO ()
data Env = Env State Conf Dispatch | EnvWoDispatch State Conf
envGetInt :: String -> Env -> Int
envGetInt key (Env _ conf _) = getUnwrappedInt key conf
envGet :: String -> Env -> String
envGet key (Env _ conf _) = getUnwrapped key conf
|
