@@ -31,7 +31,6 @@ module Elm.Package
31import Control.Monad (liftM2)
31import Control.Monad (liftM2)
32import Data.Binary (Binary, get, put)
32import Data.Binary (Binary, get, put)
33import qualified Data.Coerce as Coerce
33import qualified Data.Coerce as Coerce
34−import Data.Function (on)
35import qualified Data.List as List
34import qualified Data.List as List
36import qualified Data.Map as Map
35import qualified Data.Map as Map
37import qualified Data.Name as Name
36import qualified Data.Name as Name
@@ -236,12 +235,10 @@ nearbyNames (Name author1 project1) possibleNames =
236 authorDist = authorDistance (Utf8.toChars author1)
235 authorDist = authorDistance (Utf8.toChars author1)
237 projectDist = projectDistance (Utf8.toChars project1)
236 projectDist = projectDistance (Utf8.toChars project1)
239− addDistance name@(Name author2 project2) =
238+ nameDistance (Name author2 project2) =
240− ( authorDist author2 + projectDist project2, name )
239+ authorDist author2 + projectDist project2
242− map snd $ take 4 $
241+ take 4 $ List.sortOn nameDistance possibleNames
243− List.sortBy (compare `on` fst) $
244− map addDistance possibleNames
247authorDistance :: [Char] -> Author -> Int
244authorDistance :: [Char] -> Author -> Int