@@ -31,7 +31,6 @@ module Elm.Package
3131import Control.Monad (liftM2)
3232import Data.Binary (Binary, get, put)
3333import qualified Data.Coerce as Coerce
34−import Data.Function (on)
3534import qualified Data.List as List
3635import qualified Data.Map as Map
3736import qualified Data.Name as Name
@@ -236,12 +235,10 @@ nearbyNames (Name author1 project1) possibleNames =
236235 authorDist = authorDistance (Utf8.toChars author1)
237236 projectDist = projectDistance (Utf8.toChars project1)
238237
239− addDistance name@(Name author2 project2) =
240− ( authorDist author2 + projectDist project2, name )
238+ nameDistance (Name author2 project2) =
239+ authorDist author2 + projectDist project2
241240 in
242− map snd $ take 4 $
243− List.sortBy (compare `on` fst) $
244− map addDistance possibleNames
241+ take 4 $ List.sortOn nameDistance possibleNames
245242
246243
247244authorDistance :: [Char] -> Author -> Int