structural.elm

type alias FormCommon more = 
  { more
    | id : Id
    , sortKey : String  -- Distinct from name so that changing the name
                        -- doesn't cause list entries to change position
    , effectiveDate : DateHolder
    , intendedVersion : Int
    , species : Namelike
    , name : Css.FormValue Namelike
    , tags : List Namelike
    , tentativeTag : String
    , properties : Properties
    , status : Css.FormStatus
  }

type alias EditFields = FormCommon { originalAnimal : Animal }
type alias CreationalFields = FormCommon {}