From a7378415ecc24e9c212ecd320fe4a5b3658ecefe Mon Sep 17 00:00:00 2001 From: Phil de Joux Date: Tue, 3 May 2022 07:15:46 -0400 Subject: Follow hlint suggestion to remove redundant bang. (#1479) --- .hlint.yaml | 1 - haddock-api/src/Haddock/GhcUtils.hs | 2 +- 2 files changed, 1 insertion(+), 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 -- cgit v1.2.3