dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 23:12:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add a string compare implementation just in case.

Browse Source
This commit is contained in:
Dillon Kearns 2022-06-23 10:10:28 -07:00
parent 07fd32a1ed
commit 690d1fd26c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Form/Value.elm
View File

@ -80,8 +80,9 @@ compare a (Value kind rawValue) =
LT LT
StringValue -> StringValue ->
-- TODO -- the phantom types in the Field API don't ever run this, so it won't be called there
LT -- Just in case anyone calls it, it delegates to Basics.compare
Basics.compare a rawValue
DateValue -> DateValue ->
Result.map2 Date.compare Result.map2 Date.compare