type Msg
    = Prev
    | Next
    | PageChanged String


update : Msg -> State -> State
update msg (State internal) =
    case msg of
        Prev ->
            State { current = internal.current - 1, total = 10 }

        Next ->
            State { current = internal.current + 1, total = 10 }

        PageChanged str ->
            State { current = 10, total = 10 }


view : (State -> msg) -> State -> Html msg
view toMsg (State internal) =
    div []
        [ button [ onClick <| toMsg (update Prev (State internal)) ] [ text "<" ]
        , span [] [ text " " ]
        , input
            [ type_ "text"
            , value <| String.fromInt internal.current

            -- onInput PageChanged
            ]
            []
        , span [] [ text " / " ]
        , span [] [ text (String.fromInt internal.total) ]
        , span [] [ text " " ]
        , button [ onClick <| toMsg (update Next (State internal)) ] [ text ">" ]
        ]

(\s -> case s of
    ptrn1 -> Prev
    ptrn2 -> Next
    ptrn3 -> 

onInput = (\s -> PageChanged s)