default traverse type does not match up with default sol types in old scenes. A heuristic now repairs this one if needed and prints some info. Also when there is a mismatch diagnostic infos is printed, fixed release tags

Author: haraldsteinlechner

Build.fs

@@ -622,9 +622,9 @@ Target.create "CopyJRWRapper" (fun _ ->
 
 Target.create "GitHubRelease" (fun _ ->
     let newVersion = notes.NugetVersion
+    let tagName = "v" + newVersion
     try
         try
-            let tagName = "v" + newVersion
             Branches.tag "." tagName
             let token =
                 match Environment.environVarOrDefault "GH_TOKEN" "" with
@@ -633,7 +633,10 @@ Target.create "GitHubRelease" (fun _ ->
 
             //let files = System.IO.Directory.EnumerateFiles("bin/publish") 
             let release = sprintf "bin/PRo3D.Viewer-standalone.%s.zip" notes.NugetVersion
-            let z = System.IO.Compression.ZipFile.CreateFromDirectory("bin/publish/win-x64", release)
+            let z = 
+                if File.Exists release then
+                    File.Delete(release)
+                System.IO.Compression.ZipFile.CreateFromDirectory("bin/publish/win-x64", release)
 
             let release =
                 GitHub.createClientWithToken token
@@ -642,11 +645,11 @@ Target.create "GitHubRelease" (fun _ ->
                 //|> GitHub.publishDraft
                 |> Async.RunSynchronously
 
-            try Branches.pushTag "." "origin" newVersion with e -> Trace.logf "could not create tag: %A" e
+            try Branches.pushTag "." "origin" tagName with e -> Trace.logf "could not create tag: %A" e
 
         with e -> 
             Trace.logf "failed to create github release: %A" e
-            Branches.deleteTag "." newVersion
+            Branches.deleteTag "." tagName
     finally
         ()
 

src/PRo3D.Core/Traverse-Model.fs

@@ -656,7 +656,29 @@ module Traverse =
             let! color = Json.readWith Ext.fromJson<ColorInput, Ext> "color"
             let! heightOffset = Json.tryRead "heightOffset"
             let! priorityEnabled = Json.tryRead "priorityEnabled"
-            let! traverseType = Json.read "traverseType"
+            let! readTraverseType = Json.read "traverseType"
+
+            let traverseType =
+                // some legacy data have "wrong" traverse type in file. this one tries to find it out and repair if necessary
+                // (don't know how we arrived in this situation... :/)
+                let firstSolMetricType = sols |> List.tryHead |> Option.bind _.solMetrics
+                let changeTraverseType = // None if no change is needed 
+                    match firstSolMetricType,readTraverseType  with
+                    | Some (SolMetrics.RimfaxM _), TraverseType.Rimfax -> None
+                    | Some (SolMetrics.RoverM _), TraverseType.Rover -> None
+                    | Some (SolMetrics.WaypointM _), TraverseType.WayPoints -> None
+                    | Some (SolMetrics.RimfaxM _), _ -> Some TraverseType.Rimfax
+                    | Some (SolMetrics.RoverM _), _ -> Some TraverseType.Rover
+                    | Some (SolMetrics.WaypointM _), _ -> Some TraverseType.WayPoints
+                    | None, _ -> None
+
+                match changeTraverseType with
+                | None -> readTraverseType
+                | Some inferredTraverseType -> 
+                    Log.warn $"needed to change traverse type to match sols from {readTraverseType} to {inferredTraverseType} because of {firstSolMetricType} being found in first sol"
+                    inferredTraverseType
+
+
             let! showRimfaxSurfaces = Json.read "showRimfaxSurfaces"
             let! rimfaxRootDirectory = Json.read "rimfaxRootDirectory"
 

src/PRo3D.Viewer/Traverse/RIMFAXTraverse.fs

@@ -264,6 +264,9 @@ module RimfaxTraverseApp =
                                 ]
                             ]
                         | _ -> 
+                            Log.warn "[RoverTraverseApp] inconsistent traverse metrics: %A, should be rimfaxM)" (
+                                reversedSols |> List.tryHead |> Option.map (string << _.solMetrics) |> Option.defaultValue "unknown"
+                            )
                             yield div [clazz "item"; style white] [
                                 yield div [clazz "header";] [
                                     span [] [text "Inconsistent Data"]

src/PRo3D.Viewer/Traverse/RoverTraverse.fs

@@ -242,6 +242,9 @@ module RoverTraverseApp =
                                 ]
                             ]
                         | _ -> 
+                            Log.warn "[RoverTraverseApp] inconsistent traverse metrics: %A, should be RoverM)" (
+                                reversedSols |> List.tryHead |> Option.map (string << _.solMetrics) |> Option.defaultValue "unknown"
+                            )
                             yield div [clazz "item"; style white] [
                                 yield div [clazz "header";] [
                                     span [] [text "Inconsistent Data"]

src/PRo3D.Viewer/Traverse/WayPointsTraverse.fs

@@ -272,6 +272,9 @@ module WayPointsTraverseApp =
                                 ]
                             ]
                         | _ -> 
+                            Log.warn "[RoverTraverseApp] inconsistent traverse metrics: %A, should be WaypointM)" (
+                                reversedSols |> List.tryHead |> Option.map (string << _.solMetrics) |> Option.defaultValue "unknown"
+                            )
                             yield div [clazz "item"; style white] [
                                 yield div [clazz "header";] [
                                     span [] [text "Inconsistent Data"]