Merge pull request #43 from haskell-hvr/pr-39-foldl

Future-proof against potential Prelude.foldl'
haskell-hvr · Oct 4, 2023 · fd9e0e9 · fd9e0e9
2 parents 4c7419b + 4fd9ec7
commit fd9e0e9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 8 deletions.
diff --git a/src/Data/Text/Short/Internal.hs b/src/Data/Text/Short/Internal.hs
@@ -101,11 +101,18 @@ module Data.Text.Short.Internal
     , BS.ByteString
     , T.Text
     , module Prelude
+    , module Data.Monoid
 
       -- ** Internals
     , isValidUtf8
     ) where
 
+import           Prelude
+  (Bool(..), Ordering(..), Int, Char, String, Maybe(..), IO, Eq, Ord, Num, Read,
+   Show, ($), ($!), (.), (==), (/=), (+), (*), (-), (>>), (<=), (<), (>), (>=),
+   compare, show, showsPrec, readsPrec, abs, return, fmap, error,
+   undefined, otherwise, fromIntegral, max, min, not, fst, snd, map, seq, fail, maybe)
+
 import           Control.DeepSeq                (NFData)
 import           Control.Monad.ST               (stToIO)
 import           Data.Binary
@@ -123,6 +130,7 @@ import           Data.Hashable                  (Hashable)
 import           Data.Typeable                  (Typeable)
 import qualified Data.List                      as List
 import           Data.Maybe                     (fromMaybe, isNothing)
+import           Data.Monoid                    (Monoid, mempty, mconcat)
 import           Data.Semigroup
 import qualified Data.String                    as S
 import qualified Data.Text                      as T
@@ -136,12 +144,6 @@ import qualified GHC.Exts
 import qualified GHC.Foreign                    as GHC
 import           GHC.IO.Encoding
 import           GHC.ST
-import           Prelude                        hiding (all, any, break, concat,
-                                                 drop, dropWhile, filter, foldl,
-                                                 foldl1, foldr, foldr1, head,
-                                                 init, last, length, null,
-                                                 replicate, reverse, span,
-                                                 splitAt, tail, take, takeWhile)
 import           System.IO.Unsafe
 import           Text.Printf                    (PrintfArg, formatArg,
                                                  formatString)

diff --git a/text-short.cabal b/text-short.cabal
@@ -1,7 +1,6 @@
 cabal-version:      1.18
 name:               text-short
-version:            0.1.5
-x-revision:         3
+version:            0.1.5.1
 synopsis:           Memory-efficient representation of Unicode text strings
 license:            BSD3
 license-file:       LICENSE