diff --git a/day16/day16.hs b/day16/day16.hs
index b5ccf44..f135d47 100644
--- a/day16/day16.hs
+++ b/day16/day16.hs
@@ -53,7 +53,7 @@ parseInput = do
     return $ Input {fields, myTicket, otherTickets }
 
 matchesAnyField :: [Field] -> Int -> Bool
-matchesAnyField fields n = any (n `S.member`) . map valids $ fields
+matchesAnyField fields n = any ((n `S.member`) . valids) fields
 
 iterateUntilNothing :: (a -> Maybe a) -> a -> a
 iterateUntilNothing f x = maybe x (iterateUntilNothing f) $ f x
@@ -75,10 +75,10 @@ findSingletonChoice (x:xs) =
 
 resolve' :: Ord a => [Resolve a] -> Maybe [Resolve a]
 resolve' xs = do
-    (x, xs') <- findSingletonChoice xs
-    return $ map (dropChoice x) xs'
+    (r, xs') <- findSingletonChoice xs
+    return $ map (dropChoice r) xs'
     where dropChoice x (Choice s) = Choice (S.delete x s)
-          dropChoice _ r = r
+          dropChoice _ y = y
 
 part1 :: Input -> Int
 part1 Input { fields, otherTickets } = sum . filter (not . matchesAnyField fields) . concat $ otherTickets