Searched refs:mapRedSt (Results 1 – 1 of 1) sorted by relevance
3838 mapRedSt :: (TCState -> TCState) -> ReduceEnv -> ReduceEnv3839 mapRedSt f s = s { redSt = f (redSt s) } function3931 locallyTCState l f = onReduceEnv $ mapRedSt $ over l f