air-extra 2013.6.22 → 2013.7.18
raw patch · 2 files changed
+14/−3 lines, 2 filesdep ~airPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: air
API changes (from Hackage documentation)
+ Air.Extra: reduce :: (a -> a -> a) -> [a] -> a
+ Air.Extra: reduce' :: (a -> a -> a) -> [a] -> a
Files
- air-extra.cabal +2/−2
- src/Air/Extra.hs +12/−1
air-extra.cabal view
@@ -1,5 +1,5 @@ Name: air-extra-Version: 2013.6.22+Version: 2013.7.18 Build-type: Simple Synopsis: air-extra Description: An alternative Haskell Prelude library, extra helpers@@ -30,7 +30,7 @@ , directory , old-locale , filepath- , air >= 2013.6.22+ , air >= 2013.7.18 hs-source-dirs: src/ exposed-modules:
src/Air/Extra.hs view
@@ -6,7 +6,7 @@ import Data.Maybe import Data.Time import Data.Time.Clock.POSIX-import Air.Light+import Air.Light hiding (reduce, reduce') import Numeric import Prelude hiding ((.), (^), (>), (<), (/), elem, foldl, (-)) import System.Directory@@ -21,8 +21,14 @@ import qualified Data.List as L import qualified Prelude as Prelude import qualified System.IO.Unsafe as Unsafe+import Data.List (foldl1, foldl1') +-- BEGIN !!!!!! partial, use with extra care+-- backport+reduce = foldl1+reduce' = foldl1'+ -- Parallel p_eval, p_eval' :: [a] -> [a] p_reduce, p_reduce' :: (a -> a -> a) -> [a] -> a@@ -43,6 +49,11 @@ p_split_to n xs = xs.in_group_of(n).L.transpose p_map_reduce_to n m r xs = xs.split_to n .map m .p_reduce' r p_map_reduce m r xs = p_map_reduce_to 16 m r xs+++-- END !!!!!!++ -- Date date :: Integer -> Int -> Int -> Data.Time.Day