diff options
author | Yorhel <git@yorhel.nl> | 2020-09-26 11:16:01 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-09-27 09:56:44 +0200 |
commit | fc1a584b3253892eb563eb204c9a510ef71d04de (patch) | |
tree | 7b9c914cf386ebd6cf3872ec18601826fdcd2c33 /elm/Lib | |
parent | 06325fde90ccf916e9ad8db69fa767bb3eaa7f19 (diff) |
v2rw/TagEdit: Rewrite tag edit form to elm
It's still missing a few mod features, will add those later.
Diffstat (limited to 'elm/Lib')
-rw-r--r-- | elm/Lib/Api.elm | 1 | ||||
-rw-r--r-- | elm/Lib/Html.elm | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/elm/Lib/Api.elm b/elm/Lib/Api.elm index fd4a3a7e..b1e22193 100644 --- a/elm/Lib/Api.elm +++ b/elm/Lib/Api.elm @@ -45,6 +45,7 @@ showResponse res = BadCurPass -> "Current password is invalid." MailChange -> unexp ImgFormat -> "Unrecognized image format, only JPEG and PNG are accepted." + DupNames _ -> "Name or alias already in the database." Releases _ -> unexp BoardResult _ -> unexp TagResult _ -> unexp diff --git a/elm/Lib/Html.elm b/elm/Lib/Html.elm index 2d7d516c..440abd00 100644 --- a/elm/Lib/Html.elm +++ b/elm/Lib/Html.elm @@ -125,10 +125,11 @@ inputTextArea nam val onch attrs = textarea ( , onInput onch , rows 4 , cols 50 + , value val ] ++ attrs ++ (if nam == "" then [] else [ id nam, name nam ]) - ) [ text val ] + ) [] inputCheck : String -> Bool -> (Bool -> m) -> Html m |