X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-22.git;a=blobdiff_plain;f=advent15%2FMain.hs;fp=advent15%2FMain.hs;h=96f3213e24aec982051ca6afccf7a3918f92028f;hp=9ed5d862ee465d5e496feab50c27f6a236aaa34e;hb=402a27d38485107852e8128f20a443cc7a684c6d;hpb=d26baeb75e7bb105eb23c7434832203dc2ce6cfa

diff --git a/advent15/Main.hs b/advent15/Main.hs
index 9ed5d86..96f3213 100644
--- a/advent15/Main.hs
+++ b/advent15/Main.hs
@@ -4,12 +4,9 @@ import AoC
 import Data.Text (Text)
 import qualified Data.Text.IO as TIO
 import Data.Attoparsec.Text hiding (take, D)
-import Control.Applicative
-import Data.List
 import Data.Ix
 import qualified Data.Set as S
 import Linear hiding (Trace, trace, distance)
-import Control.Lens
 
 type Position = V2 Int
 
@@ -22,7 +19,8 @@ instance Semigroup Region where
   r1 <> r2 = Region (\p -> getRegion r1 p || getRegion r2 p)
 
 instance Monoid Region where
-  mempty = Region (\p -> False)
+  -- mempty = Region (\p -> False)
+  mempty = Region (const False)
 
 main :: IO ()
 main =