diff --git a/2019/day3/day3.hs b/2019/day3/day3.hs
index f8a386c..0bf0bbf 100644
--- a/2019/day3/day3.hs
+++ b/2019/day3/day3.hs
@@ -31,5 +31,5 @@ intersections :: [V2 Int] -> [V2 Int] -> Set.Set (V2 Int)
 intersections xs ys = Set.delete (V2 0 0) crossset
     where crossset = (Set.fromList xs) `Set.intersection` (Set.fromList ys)
 
-day3b xs ys = minimum [let f = fromJust . findIndex (==x) in
+day3b xs ys = minimum [let f = fromJust . elemIndex x in
                        f xs + f ys | x<-Set.toList $ intersections xs ys]