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