fix not showing spinner when changin views (for real now)

src/Main.elm

@@ -95,7 +95,7 @@ update msg ( global, local ) =
                         loadingfdg =
                             { fdg | loading = True }
                     in
-                    ( ( { global | view = newView }, local )
+                    ( ( { global | view = newView }, { local | forcedirectedgraph = loadingfdg } )
                     , ForceDirectedGraphView.calculateModel global.data loadingfdg |> Cmd.map ForceDirectedGraphView.propagate
                     )
 

src/Views/ForceDirectedGraph.elm

@@ -404,14 +404,11 @@ postInit data local =
         list =
             Force.computeSimulation (Force.simulation forces) <| List.map .label <| Graph.nodes graph
     in
-    Task.succeed (Ok { firstInit | loading = True })
-        |> Task.andThen
-            (\_ ->
-                Task.succeed
-                    (Ok
-                        (Local.Model (updateGraphWithList graph list) (Force.simulation forces) 0 False "" 0 0)
-                    )
-            )
+    Task.succeed
+        (Ok
+            --(Local.Model (updateGraphWithList graph list) (Force.simulation forces) 0 True "" 0 0)
+            { local | graph = updateGraphWithList graph list, simulation = Force.simulation forces, loading = True }
+        )
 
 
 isSchengen : Graph.Node Local.Entity -> List Entry -> Bool