From 85f45c71a37998f008bcb7fc58580abf88343d2b Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 9 Aug 2020 21:43:43 +0200 Subject: [PATCH] more descriptive comment --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index 8ada208..48e240c 100644 --- 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