Browse files

Merge pull request #917 from johnelse/tampa-release-changes

  • Loading branch information...
2 parents 49e24a7 + b50f9d2 commit 5ff520be614546b5b671da19234c0bfab41b40f3 xen-git committed Nov 20, 2012
Showing with 13 additions and 2 deletions.
  1. +11 −2 ocaml/idl/datamodel.ml
  2. +2 −0 ocaml/idl/datamodel_types.ml
View
13 ocaml/idl/datamodel.ml
@@ -42,9 +42,12 @@ let cowley_release_schema_minor_vsn = 61
let boston_release_schema_major_vsn = 5
let boston_release_schema_minor_vsn = 63
+let tampa_release_schema_major_vsn = 5
+let tampa_release_schema_minor_vsn = 66
+
(* the schema vsn of the last release: used to determine whether we can upgrade or not.. *)
-let last_release_schema_major_vsn = boston_release_schema_major_vsn
-let last_release_schema_minor_vsn = boston_release_schema_minor_vsn
+let last_release_schema_major_vsn = tampa_release_schema_major_vsn
+let last_release_schema_minor_vsn = tampa_release_schema_minor_vsn
(** Bindings for currently specified releases *)
@@ -161,6 +164,12 @@ let get_product_releases in_product_since =
| x::xs -> if x=in_product_since then "closed"::x::xs else go_through_release_order xs
in go_through_release_order release_order
+let sarasota_release =
+ { internal = get_product_releases rel_sarasota
+ ; opensource=get_oss_releases None
+ ; internal_deprecated_since=None
+ }
+
let tampa_release =
{ internal=get_product_releases rel_tampa
; opensource=get_oss_releases None
View
2 ocaml/idl/datamodel_types.ml
@@ -44,6 +44,7 @@ let rel_midnight_ride = "midnight-ride"
let rel_cowley = "cowley"
let rel_boston = "boston"
let rel_tampa = "tampa"
+let rel_sarasota = "sarasota"
let release_order =
[ rel_rio
@@ -56,6 +57,7 @@ let release_order =
; rel_cowley
; rel_boston
; rel_tampa
+ ; rel_sarasota
]
exception Unknown_release of string

0 comments on commit 5ff520b

Please sign in to comment.