summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-09-26 11:17:56 +0200
committerYorhel <git@yorhel.nl>2020-09-26 11:17:56 +0200
commit06325fde90ccf916e9ad8db69fa767bb3eaa7f19 (patch)
tree60792cb8d3789477efe16fe2c3db4fb0193d86b4
parentb74e3f78e3519d20b6fd49acb0f514afd75318f3 (diff)
Elm/Extlinks: Use case sensitive url matching in forms
As the server side does the same. Partial fix for https://vndb.org/t2520.492
-rw-r--r--lib/VNWeb/Elm.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/VNWeb/Elm.pm b/lib/VNWeb/Elm.pm
index 13165959..b6a3b710 100644
--- a/lib/VNWeb/Elm.pm
+++ b/lib/VNWeb/Elm.pm
@@ -438,7 +438,7 @@ sub write_extlinks {
, patt : List String
}
- reg r = Maybe.withDefault Regex.never (Regex.fromStringWith {caseInsensitive=True, multiline=False} r)
+ reg r = Maybe.withDefault Regex.never (Regex.fromStringWith {caseInsensitive=False, multiline=False} r)
delidx n l = List.take n l ++ List.drop (n+1) l
toint v = Maybe.withDefault 0 (String.toInt v)