More todying

diff --git a/src/advent21/advent21.hs b/src/advent21/advent21.hs
index a4a092bb755b69d943df6ae998c9257e59065147..fcc28d367e243f2911e82f17e631dc7a5a47faca 100644 (file)
--- a/src/advent21/advent21.hs
+++ b/src/advent21/advent21.hs
@@ -12,10 +12,8 @@ import Text.Megaparsec hiding (State)
 import qualified Text.Megaparsec.Lexer as L
 import Text.Megaparsec.Text (Parser)
 import qualified Control.Applicative as CA
--- import qualified Data.Functor as F
 
 import qualified Data.Map.Strict as M
-import Data.Map.Strict ((!))
 
 import Data.List 
 
@@ -106,7 +104,7 @@ explodeGrid :: Grid -> ExplodedGrid
 explodeGrid g = if (rm + 1) `rem` 2 == 0 
                 then explodeGrid' 2 g
                 else explodeGrid' 3 g
-    where (rm, cm) = bounds g
+    where (rm, _cm) = bounds g
 
 explodeGrid' :: Int -> Grid -> ExplodedGrid
 explodeGrid' n g = M.fromList [((bigR, bigC), subGrid n g bigR bigC) | bigR <- [0..bigRm], bigC <- [0..bigCm]]
@@ -167,8 +165,6 @@ onlySpace = (char ' ') <|> (char '\t')
 sc :: Parser ()
 sc = L.space (skipSome onlySpace) CA.empty CA.empty
 
-lexeme  = L.lexeme sc
-
 symbol = L.symbol sc
 rowSep = symbol "/"
 ruleJoin = symbol "=>"

diff --git a/src/advent21/advent21parallel.hs b/src/advent21/advent21parallel.hs
index cd0b898b9b4843ef9af29b354c2864c09115aa20..3ec87ff338581435d194b4459897d78967e73e42 100644 (file)
--- a/src/advent21/advent21parallel.hs
+++ b/src/advent21/advent21parallel.hs
@@ -12,10 +12,8 @@ import Text.Megaparsec hiding (State)
 import qualified Text.Megaparsec.Lexer as L
 import Text.Megaparsec.Text (Parser)
 import qualified Control.Applicative as CA
--- import qualified Data.Functor as F
 
 import qualified Data.Map.Strict as M
-import Data.Map.Strict ((!))
 
 import Data.List 
 
@@ -110,7 +108,7 @@ explodeGrid :: Grid -> ExplodedGrid
 explodeGrid g = if (rm + 1) `rem` 2 == 0 
                 then explodeGrid' 2 g
                 else explodeGrid' 3 g
-    where (rm, cm) = bounds g
+    where (rm, _cm) = bounds g
 
 explodeGrid' :: Int -> Grid -> ExplodedGrid
 explodeGrid' n g = M.fromList [((bigR, bigC), subGrid n g bigR bigC) | bigR <- [0..bigRm], bigC <- [0..bigCm]]
@@ -172,8 +170,6 @@ onlySpace = (char ' ') <|> (char '\t')
 sc :: Parser ()
 sc = L.space (skipSome onlySpace) CA.empty CA.empty
 
-lexeme  = L.lexeme sc
-
 symbol = L.symbol sc
 rowSep = symbol "/"
 ruleJoin = symbol "=>"