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)