port module Reducer exposing (..)

import Redux
import Json.Encode
import Json.Decode

port increment : ({} -> msg) -> Sub msg

subscriptions : Model -> Sub Msg
subscriptions _ =
    Sub.batch
        [ increment <| always Increment
        ]

encode : Model -> Json.Encode.Value
encode model =
    Json.Encode.int model

init : ( Model, Cmd msg )
init =
    ( 0, Cmd.none )

type alias Model =
    Int

type Msg
    = Increment

update : Msg -> Model -> ( Model, Cmd msg )
update msg model =
    case msg of
        Increment ->
            ( model   1, Cmd.none )

main =
    Redux.program
        { init = init
        , update = update
        , encode = encode
        , subscriptions = subscriptions
        }