Few small improvements

NixOS · Jan 16, 2021 · e1930e1 · e1930e1
1 parent 9bec66b
commit e1930e1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 8 deletions.
diff --git a/src/Page/Options.elm b/src/Page/Options.elm
@@ -136,7 +136,7 @@ viewSuccess :
     -> Html Msg
 viewSuccess channel showNixOSDetails show hits =
     ul []
-        (List.concatMap
+        (List.map
             (viewResultItem channel showNixOSDetails show)
             hits
         )
@@ -147,7 +147,7 @@ viewResultItem :
     -> Bool
     -> Maybe String
     -> Search.ResultItem ResultItemSource
-    -> List (Html Msg)
+    -> Html Msg
 viewResultItem channel _ show item =
     let
         showHtml value =
@@ -230,7 +230,7 @@ viewResultItem channel _ show item =
         open =
             SearchMsg (Search.ShowDetails item.source.name)
     in
-    [ li
+    li
         [ class "option"
         , onClick open
         , Search.elementId item.source.name
@@ -247,7 +247,6 @@ viewResultItem channel _ show item =
                     [ text item.source.name ]
                 ]
         )
-    ]
 
 
 

diff --git a/src/Page/Packages.elm b/src/Page/Packages.elm
@@ -291,7 +291,7 @@ viewSuccess :
     -> Html Msg
 viewSuccess channel showNixOSDetails show hits =
     ul []
-        (List.concatMap
+        (List.map
             (viewResultItem channel showNixOSDetails show)
             hits
         )
@@ -302,7 +302,7 @@ viewResultItem :
     -> Bool
     -> Maybe String
     -> Search.ResultItem ResultItemSource
-    -> List (Html Msg)
+    -> Html Msg
 viewResultItem channel showNixOSDetails show item =
     let
         cleanPosition =
@@ -516,7 +516,7 @@ viewResultItem channel showNixOSDetails show item =
         open =
             SearchMsg (Search.ShowDetails item.source.attr_name)
     in
-    [ li
+    li
         [ class "package"
         , onClick open
         , Search.elementId item.source.attr_name
@@ -531,7 +531,6 @@ viewResultItem channel showNixOSDetails show item =
                 , shortPackageDetails
                 ]
         )
-    ]