summaryrefslogtreecommitdiff
path: root/elm/Lib
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-09-26 11:16:01 +0200
committerYorhel <git@yorhel.nl>2020-09-27 09:56:44 +0200
commitfc1a584b3253892eb563eb204c9a510ef71d04de (patch)
tree7b9c914cf386ebd6cf3872ec18601826fdcd2c33 /elm/Lib
parent06325fde90ccf916e9ad8db69fa767bb3eaa7f19 (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.elm1
-rw-r--r--elm/Lib/Html.elm3
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