aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPhil de Joux <philderbeast@gmail.com>2022-05-03 07:15:46 -0400
committerGitHub <noreply@github.com>2022-05-03 13:15:46 +0200
commita7378415ecc24e9c212ecd320fe4a5b3658ecefe (patch)
tree8605d31666ba60e7a114f7d63d64f37489ead582
parent1a2df0b6932b8d47a3cdaf022d631913904291be (diff)
Follow hlint suggestion to remove redundant bang. (#1479)
-rw-r--r--.hlint.yaml1
-rw-r--r--haddock-api/src/Haddock/GhcUtils.hs2
2 files changed, 1 insertions, 2 deletions
diff --git a/.hlint.yaml b/.hlint.yaml
index e84b286e..0bfbd84f 100644
--- a/.hlint.yaml
+++ b/.hlint.yaml
@@ -12,7 +12,6 @@
- ignore: {name: "Move map inside list comprehension"} # 2 hints
- ignore: {name: "Redundant $"} # 11 hints
- ignore: {name: "Redundant <$>"} # 3 hints
-- ignore: {name: "Redundant bang pattern"} # 1 hint
- ignore: {name: "Redundant bracket"} # 44 hints
- ignore: {name: "Redundant id"} # 1 hint
- ignore: {name: "Redundant if"} # 3 hints
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs
index c6bcfb0e..c58d82b2 100644
--- a/haddock-api/src/Haddock/GhcUtils.hs
+++ b/haddock-api/src/Haddock/GhcUtils.hs
@@ -556,7 +556,7 @@ stringBufferFromByteString bs =
--
-- /O(1)/
takeStringBuffer :: Int -> StringBuffer -> ByteString
-takeStringBuffer !n !(S.StringBuffer fp _ cur) = BS.PS fp cur n
+takeStringBuffer !n (S.StringBuffer fp _ cur) = BS.PS fp cur n
-- | Return the prefix of the first 'StringBuffer' that /isn't/ in the second
-- 'StringBuffer'. **The behavior is undefined if the 'StringBuffers' use