more descriptive comment

2020-08-09 21:43:43 +02:00 · 2020-08-09 21:43:43 +02:00 · 85f45c71a3
commit 85f45c71a3
parent 2aaa7331b8
1 changed files with 1 additions and 1 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -192,7 +192,7 @@ main = do
      redValue <- takeMVar red
      let newRed = redValue + incrementValue

-      -- retrieve matrices from MVars
+      -- retrieve matrices from MVars and modify them on demand
      modifyMVar_ proj (\mproj -> do
        modifyMVar_ view (\mview -> do
          modifyMVar_ model (\mmodel -> do