deferred-folds 0.9.18.4 → 0.9.18.5
raw patch · 5 files changed
+14/−9 lines, 5 filesdep ~bytestringdep ~text
Dependency ranges changed: bytestring, text
Files
- deferred-folds.cabal +3/−3
- library/DeferredFolds/Defs/Unfoldr.hs +2/−2
- library/DeferredFolds/Prelude.hs +3/−1
- library/DeferredFolds/Util/TextArray.hs +3/−0
- test/Main.hs +3/−3
deferred-folds.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: deferred-folds-version: 0.9.18.4+version: 0.9.18.5 category: Folding synopsis: Abstractions over deferred folds description:@@ -80,12 +80,12 @@ build-depends: , base >=4.9 && <5- , bytestring >=0.10 && <0.12+ , bytestring >=0.10 && <0.13 , containers >=0.5 && <0.7 , foldl >=1 && <2 , hashable >=1 && <2 , primitive >=0.6.4 && <0.10- , text >=1.2 && <1.3 || >=2.0 && <2.1+ , text >=1.2 && <1.3 || >=2.0 && <2.2 , transformers >=0.5 && <0.7 , unordered-containers >=0.2 && <0.3 , vector >=0.12 && <0.14
library/DeferredFolds/Defs/Unfoldr.hs view
@@ -293,8 +293,8 @@ {-# DEPRECATED zipWithReverseIndex "This function builds up stack. Use 'zipWithIndex' instead." #-} zipWithReverseIndex :: Unfoldr a -> Unfoldr (Int, a) zipWithReverseIndex (Unfoldr unfoldr) = Unfoldr $ \step init ->- snd $- unfoldr+ snd+ $ unfoldr (\a (index, state) -> (succ index, step (index, a) state)) (0, init)
library/DeferredFolds/Prelude.hs view
@@ -1,3 +1,5 @@+{-# OPTIONS_GHC -Wno-dodgy-imports #-}+ module DeferredFolds.Prelude ( module Exports, )@@ -27,7 +29,7 @@ import Data.Fixed as Exports import Data.Foldable as Exports hiding (toList) import Data.Function as Exports hiding (id, (.))-import Data.Functor as Exports+import Data.Functor as Exports hiding (unzip) import Data.Functor.Identity as Exports import Data.HashMap.Strict as Exports (HashMap) import Data.Hashable as Exports (Hashable)
library/DeferredFolds/Util/TextArray.hs view
@@ -1,8 +1,11 @@ {-# LANGUAGE CPP #-}+{-# OPTIONS_GHC -Wno-unused-imports #-} module DeferredFolds.Util.TextArray where import Data.Text.Array+import qualified Data.Text.Internal.Encoding.Utf16 as TextUtf16+import qualified Data.Text.Internal.Unsafe.Char as TextChar import qualified Data.Text.Unsafe as TextUnsafe import DeferredFolds.Prelude hiding (Array)
test/Main.hs view
@@ -9,9 +9,9 @@ main :: IO () main =- defaultMain $- testGroup "All" $- [ testProperty "List roundtrip" $ \(list :: [Int]) ->+ defaultMain+ $ testGroup "All"+ $ [ testProperty "List roundtrip" $ \(list :: [Int]) -> list === toList (Unfoldr.foldable list), testProperty "take" $ \(list :: [Int], amount) -> take amount list