Making impossible state video

making-impossible-state.elm

-- zip list структура
-- обернутая в custom type с одним вариантом
type History =
  History
    { previous : List Question
    , current : Question
    , remaining : List Question
    }
    
-- следовательно, для работы придется использовать case
back : History -> History
back history =
  case history of
    History { previous, current,  remaining } ->
    ...

-- или не придется! Можно использовать:
back : History -> History
back (History { previous, current, remaining }) =
  ...