git.iko.soy/elk
on master help sign in
use the more sensible ordering because it manifests in elm.json deps
74ddb60Evan Czaplicki
compiler/src/Elm/Package.hs+1−8
compare with master
unifiedsplit
@@ -58,6 +58,7 @@ data Name =
58 { _author :: !Author
58 { _author :: !Author
59 , _project :: !Project
59 , _project :: !Project
60 }
60 }
61+ deriving (Ord)
61
62
62
63
63type Author = Utf8.Utf8 AUTHOR
64type Author = Utf8.Utf8 AUTHOR
@@ -267,14 +268,6 @@ instance Eq Canonical where
267 version1 == version2 && package1 == package2
268 version1 == version2 && package1 == package2
268
269
269
270
270−instance Ord Name where
271− compare (Name author1 project1) (Name author2 project2) =
272− case compare project1 project2 of
273− LT -> LT
274− EQ -> compare author1 author2
275− GT -> GT
276−
277−
278
271
279-- BINARY
272-- BINARY
280
273