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