@@ -19,7 +19,7 @@ open Fake.Git
1919
2020module Versioning =
2121 type AssemblyVersionInfo = { Informational: SemVerInfo ; Assembly: SemVerInfo ; AssemblyFile: SemVerInfo ; Project: ProjectInfo ; }
22- type private GlobalJson = JsonProvider< " ../../global .json" >
22+ type private VersionsJson = JsonProvider< " ../../versions .json" >
2323
2424 let private canaryVersionOrCurrent version =
2525 match getBuildParam " target" with
@@ -32,37 +32,41 @@ module Versioning =
3232 | _ -> version |> parse
3333
3434 let private versionOf project =
35- let globalJson = GlobalJson .Load( " ../../global .json" );
35+ let globalJson = VersionsJson .Load( " ../../versions .json" );
3636 match project with
3737 | Managed -> canaryVersionOrCurrent <| globalJson.Versions.Managed.Remove( 0 , 1 )
3838 | Ephemeral -> canaryVersionOrCurrent <| globalJson.Versions.Ephemeral.Remove( 0 , 1 )
3939 | Xunit -> canaryVersionOrCurrent <| globalJson.Versions.Xunit.Remove( 0 , 1 )
40+
41+ let reposVersion () =
42+ let globalJson = VersionsJson.Load( " ../../versions.json" );
43+ globalJson.Versions.Repos.Remove( 0 , 1 );
4044
4145 let private assemblyVersionOf v = sprintf " %i .0.0" v.Major |> parse
4246
4347 let private assemblyFileVersionOf v = sprintf " %i .%i .%i .0" v.Major v.Minor v.Patch |> parse
4448
4549 //write it with a leading v in the json, needed for the json type provider to keep things strings
46- let writeGlobalJson reposVersion managedVersion ephemeralVersion xunitVersion =
47- let globalJson = GlobalJson .Load( " ../../global .json" );
48- let versionsNode = GlobalJson .Versions( reposVersion, managedVersion, ephemeralVersion, xunitVersion)
50+ let writeVersionsJson reposVersion managedVersion ephemeralVersion xunitVersion =
51+ let globalJson = VersionsJson .Load( " ../../versions .json" );
52+ let versionsNode = VersionsJson .Versions( reposVersion, managedVersion, ephemeralVersion, xunitVersion)
4953
50- let newGlobalJson = GlobalJson .Root ( GlobalJson.Sdk ( globalJson.Sdk.Version ), versionsNode)
51- use tw = new StreamWriter( " global .json" )
52- newGlobalJson .JsonValue.WriteTo( tw, JsonSaveOptions.None)
54+ let newVersionsJson = VersionsJson .Root ( versionsNode)
55+ use tw = new StreamWriter( " versions .json" )
56+ newVersionsJson .JsonValue.WriteTo( tw, JsonSaveOptions.None)
5357
5458 let private pre ( v : string ) = match ( v.StartsWith( " v" )) with | true -> v | _ -> sprintf " v%s " v
5559 let private bumpVersion project version =
56- let globalJson = GlobalJson .Load( " ../../global .json" );
60+ let globalJson = VersionsJson .Load( " ../../versions .json" );
5761 let reposVersion = pre <| globalJson.Versions.Repos
5862 let managedVersion = match project with | Managed -> pre version | _ -> pre <| globalJson.Versions.Managed
5963 let ephemeralVersion = match project with | Ephemeral -> pre version | _ -> pre <| globalJson.Versions.Ephemeral
6064 let xunitVersion = match project with | Xunit -> pre version | _ -> pre <| globalJson.Versions.Xunit
61- writeGlobalJson reposVersion managedVersion ephemeralVersion xunitVersion
65+ writeVersionsJson reposVersion managedVersion ephemeralVersion xunitVersion
6266 traceImportant <| sprintf " %s bumped version to (%O ) in global.json " ( nameOf project) version
6367
64- let writeVersionIntoGlobalJson project version =
65- let globalJson = GlobalJson .Load( " ../../global .json" );
68+ let writeVersionIntoVersionsJson project version =
69+ let globalJson = VersionsJson .Load( " ../../versions .json" );
6670 let pv = pre version
6771 let changed =
6872 match project with
@@ -78,14 +82,14 @@ module Versioning =
7882 changed
7983
8084 let BumpGlobalVersion ( projects : AssemblyVersionInfo list ) =
81- let globalJson = GlobalJson .Load( " ../../global .json" );
85+ let globalJson = VersionsJson .Load( " ../../versions .json" );
8286 let v = globalJson.Versions.Repos.Remove( 0 , 1 ) |> parse
8387 let bumpedVersion = sprintf " v%i .%i .%i " v.Major v.Minor ( v.Patch + 1 )
8488
8589 let managedVersion = pre <| globalJson.Versions.Managed
8690 let ephemeralVersion = pre <| globalJson.Versions.Ephemeral
8791 let xunitVersion = pre <| globalJson.Versions.Xunit
88- writeGlobalJson bumpedVersion managedVersion ephemeralVersion xunitVersion
92+ writeVersionsJson bumpedVersion managedVersion ephemeralVersion xunitVersion
8993 traceImportant <| sprintf " bumped repos version to (%s ) in global.json" bumpedVersion
9094
9195 let header p = sprintf " %s %O " p.Project.name p.Informational
0 commit comments