create :: LocationOptions -> LocationAction LocationView
create locationOptions = add (Classes.create locationOptions) >>= view
create :: LocationOptions -> LocationAction LocationView
create locationOptions = add (Classes.create locationOptions) >>= view
create locationOptions = add (Classes.create locationOptions) >>= view