import Data.List.NonEmpty

data Coordinate =
  Coordinate
    Double
    Double

data Waypoint =
  Waypoint
    String -- name
    String -- code
    (Maybe Coordinate)

newtype Runway =
  Runway
    String

data WaypointArrivalType =
  FullStop (Maybe Runway)
  | TouchAndGo (Maybe Runway)
  | StopAndGo (Maybe Runway)
  | GoAround (Maybe Runway)
  | Overfly

data WaypointArrival =
  WaypointArrival
    Waypoint
    WaypointArrivalType
    (NonEmpty WaypointArrivalType)

newtype Route =
  Route
    [WaypointArrival]