Searched refs:stCurrentModule (Results 1 – 4 of 4) sorted by relevance
81 stCurrentModule `setTCLens` Just (iModuleName i)89 curMName = fromMaybe __IMPOSSIBLE__ <$> useTC stCurrentModule
414 stCurrentModule `setTCLens` Just (iModuleName (miInterface mi))
1124 caseMaybeM (useTC stCurrentModule) err $ \ current -> do
620 stCurrentModule :: Lens' (Maybe ModuleName) TCState621 stCurrentModule f s = function