diff --git a/haskell/Puzzles/Day5.hs b/haskell/Puzzles/Day5.hs
index 75d0f28..f102c20 100644
--- a/haskell/Puzzles/Day5.hs
+++ b/haskell/Puzzles/Day5.hs
@@ -23,11 +23,8 @@ puzzle =
             [ \(ranges, vals) ->
                 TL.show
                     . length
-                    . map fst
-                    . filter (notNull . snd)
-                    $ map
-                        (\v -> (v, mapMaybe (\r -> guard (isInRange v r) $> r) ranges))
-                        vals
+                    . filter (flip any ranges . isInRange)
+                    $ vals
             ]
         , extraTests = mempty
         }