runRoute :: Manager -> Text -> Int -> ExceptT ServantError IO Response
runRoute manager host port = routeAPI coordinates alternatives steps geometries overview manager baseurl
  where
    start        = Coordinate { coordinateLongitude = -3.279966, coordinateLatitude = 51.406314 }
    end          = Coordinate { coordinateLongitude = -3.281205, coordinateLatitude = 51.407274 }
    coordinates  = [start, end]
    alternatives = Just AlternativesFalse
    steps        = Just StepsTrue
    geometries   = Just GeometriesGeoJson
    overview     = Just OverviewFalse
    baseurl      = BaseUrl Http (T.unpack host) port "/route/v1"
runRoute :: Manager -> Text -> Int -> ExceptT ServantError IO Response
runRoute manager host port = routeAPI coordinates alternatives steps geometries overview manager baseurl
  where
    start        = Coordinate { coordinateLongitude = -3.279966, coordinateLatitude = 51.406314 }
    end          = Coordinate { coordinateLongitude = -3.281205, coordinateLatitude = 51.407274 }
    coordinates  = [start, end]
    alternatives = Just AlternativesFalse
    steps        = Just StepsTrue
    geometries   = Just GeometriesGeoJson
    overview     = Just OverviewFalse
    baseurl      = BaseUrl Http (T.unpack host) port "/route/v1"
runRoute manager host port = routeAPI coordinates alternatives steps geometries overview manager baseurl
  where
    start        = Coordinate { coordinateLongitude = -3.279966, coordinateLatitude = 51.406314 }
    end          = Coordinate { coordinateLongitude = -3.281205, coordinateLatitude = 51.407274 }
    coordinates  = [start, end]
    alternatives = Just AlternativesFalse
    steps        = Just StepsTrue
    geometries   = Just GeometriesGeoJson
    overview     = Just OverviewFalse
    baseurl      = BaseUrl Http (T.unpack host) port "/route/v1"