From 82a8cee8c14985f757fbde67c731dea9bc1ace12 Mon Sep 17 00:00:00 2001
From: "Aamon P. Hoffmann" <aamon.hoffmann@student.uni-halle.de>
Date: Sun, 5 Jan 2025 13:05:28 +0100
Subject: [PATCH] fix loading not showing when switching to forcedirectedgraph
---
src/Main.elm | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/src/Main.elm b/src/Main.elm
index 1c56d98..8574e61 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
)
_ ->
--
GitLab