alternatives.elm

--- THIS?

type Format
  = Compact
  | Expanded
  | Editable Form  

type alias DisplayedAnimal =
  { id : Id
  , displayFormat : Format
  -- ...
  }

--- OR THIS?  

type DisplayedAnimal =
  = Compact Animal
  | Expanded Animal
  | Editable Animal Form

--- OR THIS?

type alias Form =
  { id : Id
  , originalAnimal : Animal
  -- ...
  }

type DisplayedAnimal 
  = Compact Animal
  | Expanded Animal
  | Editable Form 
    
-- OR ...