added chart data route

ffrank06 · Jul 10, 2018 · 57db098 · 57db098
1 parent a2ada8e
commit 57db098
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/EDEngineer.Server/CommanderChart.fs b/EDEngineer.Server/CommanderChart.fs
@@ -5,8 +5,6 @@ open Newtonsoft.Json
 open EDEngineer.Models.Utils
 open EDEngineer.Models
 open EDEngineer.Models.Operations
-open EDEngineer.Models.State
-open NodaTime
 open XPlot.Plotly
 open System
 open System.Collections.Generic

diff --git a/EDEngineer.Server/Server.fs b/EDEngineer.Server/Server.fs
@@ -329,6 +329,18 @@ let start (token,
               return result |> OK
             })))
 
+        GET >=> pathScan "/%s/chartData%s" (fun (commander, format) ->
+          (request(fun request ->
+            cmdr {
+              let! state = stateRoute commander
+              let! f = FormatExtractor request format
+              let! l = LanguageExtractor <| request.queryParam "lang"
+              let settings = jsonSettingsGetter.Invoke(commander)
+
+              let result = CommanderChart.chartData commander logDirectory settings translator l
+              return (result, l) |> FormatPicker(f) |> OK >=> MimeType(f)
+            })))
+
         OPTIONS >=>
             fun context ->
                 context |> (