fix loading not showing when switching to forcedirectedgraph

src/Main.elm

@@ -88,8 +88,15 @@ update msg ( global, local ) =
         ViewChange newView ->
             case newView of
                 ForceDirectedGraph ->
+                    let
+                        fdg =
+                            local.forcedirectedgraph
+
+                        loadingfdg =
+                            { fdg | loading = True }
+                    in
                     ( ( { global | view = newView }, local )
-                    , ForceDirectedGraphView.calculateModel global.data local.forcedirectedgraph |> Cmd.map ForceDirectedGraphView.propagate
+                    , ForceDirectedGraphView.calculateModel global.data loadingfdg |> Cmd.map ForceDirectedGraphView.propagate
                     )
 
                 _ ->