simple-search.elm

type alias Person =
  { name : String
  }

type alias Model =
  { persons : List Person
  }

model : Model
model =
  { persons = fetchPersons }

fetchPersons : List Person
fetchPersons = [Person "whatever", Person "derp"]

-- UPDATE

type Msg
  = Search String

update : Msg -> Model -> Model
update msg model =
  case msg of
    Search term ->
      { model | persons = List.filter (\person -> String.contains term person.name) fetchPersons }

-- VIEW

personList ps =
  Html.ul [] (List.map personListElement ps)

personListElement p = Html.li [] [text p.name]

view : Model -> Html Msg
view model =
  div []
    [ input [ placeholder "search persons", onInput Search ] []
    , personList model.persons
    ]