Making impossible state video

making-impossible-state.elm

-- Question модуль
module Question exposing ( History(..) )

type History =
  History
    { previous : List Question
    , current : Question
    , remaining : List Question
    }
    
-- внутри модуля History мы можем работать с history
-- как нам вздумается
-- например доставать значения из History
-- через привычную ".",
-- (History { previous, ...} as history )
-- history.current

-- Затем вместо exposing History(..)
-- что означает, "выставь наружу" тип History и конструктор типа
-- мы оставляем только
-- module Question exposing ( History )

-- теперь в других файлах, можно использовать этот тип
-- но нельзя достутчаться вовнутрь, как быть?
-- Ответ: из модуля Question, показать наружу хелпер-функции

questions : History -> List Questions

currentQuestion: History -> Question

-- ...

-- Для чего?
-- чтобы скрыть внутреннюю реализацию. В будущем,
-- если мы захотим изменить что-то внутри,
-- и будем придерживаться такого же API "наружу",
-- то нам не придется ничего менять в других модулях!
-- No breaking changes, как говорится.