diff --git a/src/Main.elm b/src/Main.elm index dbd3e01..02a01c6 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -123,5 +123,5 @@ view model = , br_ , br_ , text "increment" - , select [ onInput InputIncr ] (List.range 1 20 |> List.map (String.fromInt >> (\s -> ( s, s )) >> renderOption)) + , select [ onInput InputIncr ] (List.range 1 20 ++ [ 0 ] |> List.map (String.fromInt >> (\s -> ( s, s )) >> renderOption)) ]