/
valesnikov
/
bcomp-compiler
Обзор
Документация
Войти
/
valesnikov
/
bcomp-compiler
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
app/Tools.hs
18 строк
497 B
Vladimir Lesnikov
refactoring
26 фев 2026, 16:15
Верифицирован
26 фев 2026, 16:15
696b6fa
Код
Авторство
О чём код?
module Tools where import Control.Monad.State (MonadState (get, put)) import Translator.Context (TranslatorM, TranslatorState (..)) newTranslatorState :: TranslatorState newTranslatorState = TranslatorState {trCounter = 0} -- Backward-compatible alias with legacy typo. newTraslatorState :: TranslatorState newTraslatorState = newTranslatorState getUniqId :: (TranslatorM m) => m Integer getUniqId = do st <- get let uniqId = trCounter st put $ st {trCounter = uniqId + 1} pure uniqId