elm-record.elm

lampard =
    { name = "Frank"
    , lastname = "Lampard"
    , age = 41
    }


type alias Player =
    { name : String
    , lastname : String
    , age : Int
    }


gerrard : Player
gerrard =
    { name = "Steven"
    , lastname = "Gerrard"
    , age = 39
    }


beckham =
    Player "David" "Beckham" 44


names : List String
names =
    List.map
        (\player -> player.name)
        [ lampard, gerrard, beckham ]


lastnames : List String
lastnames =
    List.map
        .lastname
        [ lampard, gerrard, beckham ]


changeName : Player -> String -> Player
changeName player name =
    { player | name = name }


stevenBeckham =
    changeName beckham "Steven"


main =
    text stevenBeckham.name



-- main =
--     text (.name stevenBeckham)


type alias IsValid =
    Bool

type alias Message =
    String

type alias ValidationResult =
    ( IsValid, Message )