Tidying up

[advent-of-code-22.git] / advent15 / Main.hs

diff --git a/advent15/Main.hs b/advent15/Main.hs
index 9ed5d862ee465d5e496feab50c27f6a236aaa34e..96f3213e24aec982051ca6afccf7a3918f92028f 100644 (file)
--- 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 =