diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-02-21 17:19:07 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-24 20:25:06 -0500 |
| commit | d0deaaf4241fa236bd8d87abde68a0ad41a7e119 (patch) | |
| tree | 34dfe80938a15ca0d6efb19f674ebdda54eecee5 /libraries | |
| parent | b99646ed23ba75506005025e625edbc9a5cad41b (diff) | |
| download | haskell-d0deaaf4241fa236bd8d87abde68a0ad41a7e119.tar.gz | |
Suggestions due to hlint
It turns out this job hasn't been running for quite a while (perhaps
ever) so there are quite a few failures when running the linter locally.
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/GHC/ArrayArray.hs | 1 | ||||
| -rw-r--r-- | libraries/base/GHC/Base.hs | 3 | ||||
| -rw-r--r-- | libraries/base/GHC/Float.hs | 4 | ||||
| -rw-r--r-- | libraries/base/GHC/IO/Handle/Text.hs | 2 |
4 files changed, 3 insertions, 7 deletions
diff --git a/libraries/base/GHC/ArrayArray.hs b/libraries/base/GHC/ArrayArray.hs index ea84f13edf..199bac3a15 100644 --- a/libraries/base/GHC/ArrayArray.hs +++ b/libraries/base/GHC/ArrayArray.hs @@ -5,7 +5,6 @@ {-# LANGUAGE MagicHash #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE StandaloneKindSignatures #-} -{-# LANGUAGE TypeApplications #-} {-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE UnliftedNewtypes #-} diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs index 9463570d46..52a247ffae 100644 --- a/libraries/base/GHC/Base.hs +++ b/libraries/base/GHC/Base.hs @@ -1392,8 +1392,7 @@ The rules for map work like this. {-# RULES "++/literal" forall x. (++) (unpackCString# x) = unpackAppendCString# x -"++/literal_utf8" forall x. (++) (unpackCStringUtf8# x) = unpackAppendCStringUtf8# x -#-} +"++/literal_utf8" forall x. (++) (unpackCStringUtf8# x) = unpackAppendCStringUtf8# x #-} {-# RULES "++" [~1] forall xs ys. xs ++ ys = augment (\c n -> foldr c n xs) ys diff --git a/libraries/base/GHC/Float.hs b/libraries/base/GHC/Float.hs index ffe9fdc7b9..6f15997981 100644 --- a/libraries/base/GHC/Float.hs +++ b/libraries/base/GHC/Float.hs @@ -1612,6 +1612,4 @@ foreign import prim "stg_doubleToWord64zh" forall x. naturalToFloat# (NS x) = word2Float# x "Word# -> Natural -> Double#" - forall x. naturalToDouble# (NS x) = word2Double# x - -#-} + forall x. naturalToDouble# (NS x) = word2Double# x #-} diff --git a/libraries/base/GHC/IO/Handle/Text.hs b/libraries/base/GHC/IO/Handle/Text.hs index 0e3dcd709e..60c2aa7c10 100644 --- a/libraries/base/GHC/IO/Handle/Text.hs +++ b/libraries/base/GHC/IO/Handle/Text.hs @@ -551,7 +551,7 @@ lazyBuffersToString CRLF = loop '\0' where -- * 'isPermissionError' if another system resource limit would be exceeded. hPutChar :: Handle -> Char -> IO () -hPutChar handle !c = do +hPutChar handle !c = wantWritableHandle "hPutChar" handle $ \ handle_ -> hPutcBuffered handle_ c |