diff --git a/data/hlint.yaml b/data/hlint.yaml
index 634a08ad7..d2c27bddd 100644
--- a/data/hlint.yaml
+++ b/data/hlint.yaml
@@ -296,6 +296,10 @@
 
     - warn: {lhs: \x -> x, rhs: id}
     - warn: {lhs: \x y -> x, rhs: const}
+    - warn: {lhs: curry fst, rhs: const}
+    - warn: {lhs: \x y -> y, rhs: const id}
+    - warn: {lhs: curry snd, rhs: const id}
+    - warn: {lhs: flip const, rhs: const id}
     - warn: {lhs: "\\(x,y) -> y", rhs: snd}
     - warn: {lhs: "\\(x,y) -> x", rhs: fst}
     - hint: {lhs: "\\x y -> f (x,y)", rhs: curry f}