Records.elm

import Form exposing (Form)
import Form.Validate as Validate exposing (field, map3, Validation)
import Form.Field
import Http
import Dict exposing (Dict)
import Json.Decode as Decode
import Json.Encode as Encode

type alias Connection a =
    { a
        | host : String
        , username : String
    }


type alias ConnectionFormData =
    Connection { password : String }

validation : Validation () ConnectionFormData
validation =
    map3 ConnectionFormData
        (field "host" Validate.string)
        (field "username" Validate.string)
        (field "password" Validate.string)
        
connectionDecoder : Decode.Decoder ConnectionFormData
connectionDecoder =
    Decode.map3 ConnectionFormData
        (Decode.field "host" Decode.string)
        (Decode.field "username" Decode.string)
        (Decode.field "password" Decode.string)