diff options
author | Yorhel <git@yorhel.nl> | 2018-08-25 16:40:44 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2018-08-25 16:40:44 +0200 |
commit | d505653430b08686aadd77adfb5f62138f99275d (patch) | |
tree | 910ae8df996668996280c5ce5a87213d3022e32b /lib | |
parent | aa624ff3cdf42e1ffb56b5456ce3232f2560b323 (diff) |
TUWF::Validate::Interop: Update elm_type() for Elm 0.19
Diffstat (limited to 'lib')
-rw-r--r-- | lib/TUWF/Validate/Interop.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/TUWF/Validate/Interop.pm b/lib/TUWF/Validate/Interop.pm index 946603c..de4444e 100644 --- a/lib/TUWF/Validate/Interop.pm +++ b/lib/TUWF/Validate/Interop.pm @@ -138,7 +138,7 @@ sub html5_validation { -# The elm_ are experimental, unstable, not very well-tested and for Elm 0.18 +# The elm_ are experimental, unstable, not very well-tested and for Elm 0.19 # Options: required any array values keys indent level sub elm_type { @@ -190,7 +190,7 @@ sub elm_encoder { return "$opt{json_encode}float" if $o->{type} eq 'num'; return "$opt{json_encode}int" if $o->{type} eq 'int'; return $opt{any} if $o->{type} eq 'any' && $opt{any}; - return sprintf '(%slist << List.map %s)', $opt{json_encode}, $opt{values} || $o->{values}->elm_encoder(%opt) + return sprintf '(%slist %s)', $opt{json_encode}, $opt{values} || $o->{values}->elm_encoder(%opt) if $o->{type} eq 'array' && ($opt{values} || $o->{values}); if($o->{type} eq 'hash' && ($o->{keys} || $opt{keys})) { |