X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-19.git;a=blobdiff_plain;f=advent24%2Fsrc%2Fadvent24map.hs;fp=advent24%2Fsrc%2Fadvent24map.hs;h=69ed0f6d35f568914cb612b5db19e430def60341;hp=596bdb224375ef36bf576ecafef0f26612a38563;hb=dd1deef80ef62982bd6c014e1a38d28190c53961;hpb=418d5771f9b52ca7d813c1daebc91772a6e74a88

diff --git a/advent24/src/advent24map.hs b/advent24/src/advent24map.hs
index 596bdb2..69ed0f6 100644
--- a/advent24/src/advent24map.hs
+++ b/advent24/src/advent24map.hs
@@ -98,7 +98,7 @@ mkGrid xs = store (`elem` xs) (Ongrid 1 1)
 unGrid :: StoredGrid -> Grid Bool
 -- unGrid (StoreT (Identity g) _) = g
 unGrid grid = Grid False $ M.fromList gridList
-    where (sgf, _sgl) = runStore grid
+    where (sgf, _sgl) = runStore grid -- return pair is function for extracting elements, and current focus
           gridList = [((Ongrid r c), sgf (Ongrid r c)) | c <- [1..gridSize], r <- [1..gridSize]]