diff --git a/src/Main.elm b/src/Main.elm
index 1c56d98da5c72209173db9b163887305b76020fc..8574e617cdb71e7e5fbb5a58adaf492be7a5e0e5 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
                     )
 
                 _ ->