Day 13: More legible letters

amalloy · Dec 13, 2021 · f98c07f · f98c07f
1 parent 435dbb9
commit f98c07f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/day13/src/Main.hs b/day13/src/Main.hs
@@ -35,7 +35,7 @@ part2 (Input p fs) = let maxY = last [y | Y := y <- fs]
   y <- [0..maxY]
   pure $ do
     x <- [0..maxX]
-    pure $ if S.member (Point x y) p' then '#' else '.'
+    pure $ if S.member (Point x y) p' then '#' else ' '
 
 prepare :: String -> Input
 prepare = fromMaybe (Input mempty mempty) . (=~ input)