Env.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module Env where

import Conf
import State

data Env = Env State Conf

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

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