diff options
author | Phil de Joux <philderbeast@gmail.com> | 2022-05-03 07:15:46 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-05-03 13:15:46 +0200 |
commit | a7378415ecc24e9c212ecd320fe4a5b3658ecefe (patch) | |
tree | 8605d31666ba60e7a114f7d63d64f37489ead582 /haddock-api | |
parent | 1a2df0b6932b8d47a3cdaf022d631913904291be (diff) |
Follow hlint suggestion to remove redundant bang. (#1479)
Diffstat (limited to 'haddock-api')
-rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |