use the more sensible ordering because it manifests in elm.json deps

Author: evancz

compiler/src/Elm/Package.hs

@@ -58,6 +58,7 @@ data Name =
     { _author :: !Author
     , _project :: !Project
     }
+    deriving (Ord)
 
 
 type Author = Utf8.Utf8 AUTHOR
@@ -267,14 +268,6 @@ instance Eq Canonical where
     version1 == version2 && package1 == package2
 
 
-instance Ord Name where
-  compare (Name author1 project1) (Name author2 project2) =
-    case compare project1 project2 of
-      LT -> LT
-      EQ -> compare author1 author2
-      GT -> GT
-
-
 
 -- BINARY