@@ -260,20 +260,18 @@ viewVersion (pkg, version) =
262viewConstraint : ExactDeps -> (Package.Name, constraint) -> List (Html msg)
262viewConstraint : ExactDeps -> (Package.Name, constraint) -> List (Html msg)
263−viewConstraint exactDeps (packageName, _) =
263+viewConstraint exactDeps (pkg, _) =
265− pkg = Package.toString packageName
267− case Dict.get pkg exactDeps of
264+ case Dict.get (Package.toString pkg) exactDeps of
268− Just v -> Version.toString v
265+ Just vsn ->
266+ viewVersion (pkg, vsn)
269− Nothing -> "???"
268+ Nothing ->
271− [ div [ style "float" "left" ]
269+ [ div [ style "float" "left" ]
272− [ Icon.package
270+ [ Icon.package
273− , text pkg
271+ , text (Package.toString pkg)
273+ , div [ style "float" "right" ] [ text "???" ]
275− , div [ style "float" "right" ] [ text vsn ]
279toPackageUrl : Package.Name -> Version.Version -> String
277toPackageUrl : Package.Name -> Version.Version -> String