From d5b2729b2a642271c0a79441a59fc7687ea4e23b Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Mon, 2 Jul 2018 18:22:00 +0200
Subject: [PATCH] todo

---
 src/MindMap.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MindMap.hs b/src/MindMap.hs
index affde8a..d87ef8d 100644
--- a/src/MindMap.hs
+++ b/src/MindMap.hs
@@ -54,6 +54,7 @@ springField :: AG.Graph MMNode -> AG.Graph MMNode
 springField inGraph =
   calcul inGraph
   where
+    -- This could be optimized in such a way, that you update both computation partners at once.
     calculDelta :: AG.Graph MMNode -> MMNode -> (Int, V2 Double)
     calculDelta graph node =
       let accel = foldl sproing (V2 0 0 :: V2 Double) (vertexList graph)