From d9bed1316d919ba8bdb27317c84c1ebf2644107c Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Thu, 6 Dec 2018 09:33:56 +0000
Subject: [PATCH] tidying

---
 src/advent06/advent06.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/advent06/advent06.hs b/src/advent06/advent06.hs
index 2ff18f5..74e11f7 100644
--- a/src/advent06/advent06.hs
+++ b/src/advent06/advent06.hs
@@ -15,7 +15,7 @@ import qualified Control.Applicative as CA
 import qualified Data.Map.Strict as M
 
 type Coord = (Integer, Integer) -- x, y
-type Bounds = (Integer, Integer, Integer, Integer)
+type Bounds = (Integer, Integer, Integer, Integer) -- minX, maxX, minY, maxY
 type Region = M.Map Coord Int
 
 main :: IO ()
@@ -27,8 +27,6 @@ main = do
         print boundingBox
         print $ part1 coords boundingBox
         print $ part2 coords boundingBox
-        -- print $ part1 activity
-        -- print $ part2 activity
 
 
 part1 coords bounds = largestRegion $ regionSizes $ finite edgeLabels regions
-- 
2.34.1