Shift all the parts up a number.
This commit is contained in:
@@ -3,6 +3,7 @@ module ElmHub (..) where
|
||||
import Html exposing (..)
|
||||
import Html.Attributes exposing (..)
|
||||
import Html.Events exposing (..)
|
||||
import Html.Lazy exposing (..)
|
||||
import Http
|
||||
import Auth
|
||||
import Task exposing (Task)
|
||||
@@ -34,7 +35,8 @@ searchFeed query =
|
||||
|
||||
responseDecoder : Decoder (List SearchResult.Model)
|
||||
responseDecoder =
|
||||
"items" := Json.Decode.list SearchResult.decoder
|
||||
-- TODO make use of SearchResult's decoder
|
||||
Json.Decode.succeed []
|
||||
|
||||
|
||||
type alias Model =
|
||||
@@ -72,15 +74,7 @@ viewSearchResults address results =
|
||||
results
|
||||
|> Dict.values
|
||||
|> List.sortBy (.stars >> negate)
|
||||
|> filterResults
|
||||
|> List.map (SearchResult.view address DeleteById)
|
||||
|
||||
|
||||
filterResults : List SearchResult.Model -> List SearchResult.Model
|
||||
filterResults results =
|
||||
-- TODO filter out repos with 0 stars
|
||||
-- using a case-expression rather than List.filter
|
||||
results
|
||||
|> List.map (\_ -> div [] [ text "TODO replace this line with view logic from SearchResult" ])
|
||||
|
||||
|
||||
onInput address wrap =
|
||||
|
||||
Reference in New Issue
Block a user