diff --git a/src/Main.elm b/src/Main.elm
index 20f07d701aeb0beb7797bf224936c6e58ddd4d58..72af82e548c9866f458cc2d7a6f5cd26c107825c 100644
--- a/src/Main.elm
+++ b/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
                     )
 
                 _ ->