Add hint to use flip (#1616)

ndmitchell · Dec 14, 2024 · 7f60084 · 7f60084
1 parent 4be7b9e
commit 7f60084
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/data/hlint.yaml b/data/hlint.yaml
@@ -386,6 +386,7 @@
     - warn: {lhs: g <**> flip f, rhs: g >>= f, name: Redundant flip}
     - warn: {lhs: flip f =<< g, rhs: f <*> g, name: Redundant flip}
     - warn: {lhs: g >>= flip f, rhs: g Control.Applicative.<**> f, name: Redundant flip}
+    - warn: {lhs: ($ x) . f, rhs: flip f x}
 
     # CHAR
 

diff --git a/hints.md b/hints.md
@@ -6055,6 +6055,22 @@ g Control.Applicative.<**> f
 <td>Warning</td>
 </tr>
 <tr>
+<td>Use flip</td>
+<td>
+LHS:
+<code>
+($ x) . f
+</code>
+<br>
+RHS:
+<code>
+flip f x
+</code>
+<br>
+</td>
+<td>Warning</td>
+</tr>
+<tr>
 <td>Use isAsciiLower</td>
 <td>
 LHS: