Browse files

Swapped s/meanwhile/throughout/ and added missing {-# INLINE #-} pragmas

  • Loading branch information...
1 parent 8e1ea47 commit 263013c83144b89d68e7ee96b9003d13426370de @ekmett committed Aug 13, 2012
Showing with 14 additions and 4 deletions.
  1. +5 −0 CHANGELOG.markdown
  2. +8 −4 src/Control/Parallel/Strategies/Lens.hs
  3. +1 −0 src/Control/Seq/Lens.hs
View
5 CHANGELOG.markdown
@@ -1,3 +1,8 @@
+2.3
+---
+* Added missing `{-# INLINE #-}` pragmas
+* Renamed `meanwhile` to `throughout` in `Control.Parallel.Strategies.Lens`
+
2.2
---
* Added `<&=`, `<&~`, `<|=`, and `<|~`
View
12 src/Control/Parallel/Strategies/Lens.hs
@@ -15,7 +15,7 @@ module Control.Parallel.Strategies.Lens
( evalOf
, parOf
, after
- , meanwhile
+ , throughout
) where
import Control.Lens
@@ -36,6 +36,7 @@ import Control.Parallel.Strategies
-- @
evalOf :: SimpleLensLike Eval a b -> Strategy b -> Strategy a
evalOf l = l
+{-# INLINE evalOf #-}
-- | Evaluate the targets of a 'Lens' or 'Traversal' according into a
-- data structure according to a given 'Strategy' in parallel.
@@ -49,6 +50,7 @@ evalOf l = l
-- @
parOf :: SimpleLensLike Eval a b -> Strategy b -> Strategy a
parOf l s = l (rparWith s)
+{-# INLINE parOf #-}
-- | Transform a 'Lens', 'Fold', 'Getter', 'Setter' or 'Traversal' to
-- first evaluates its argument according to a given strategy /before/ proceeding.
@@ -58,12 +60,14 @@ parOf l s = l (rparWith s)
-- @
after :: Strategy a -> LensLike f a b c d -> LensLike f a b c d
after s l f = l f $| s
+{-# INLINE after #-}
-- | Transform a 'Lens', 'Fold', 'Getter', 'Setter' or 'Traversal' to
-- evaluate its argument according to a given strategy /in parallel with/ evaluating.
--
-- @
--- 'meanwhile' 'rdeepseq' 'traverse' :: 'Traversable' t => 'Strategy' a -> 'Strategy' [a]
+-- 'throughout' 'rdeepseq' 'traverse' :: 'Traversable' t => 'Strategy' a -> 'Strategy' [a]
-- @
-meanwhile :: Strategy a -> LensLike f a b c d -> LensLike f a b c d
-meanwhile s l f = l f $|| s
+throughout :: Strategy a -> LensLike f a b c d -> LensLike f a b c d
+throughout s l f = l f $|| s
+{-# INLINE throughout #-}
View
1 src/Control/Seq/Lens.hs
@@ -22,3 +22,4 @@ import Control.Seq
-- @'seqFoldable' = 'seqOf' 'folded'@
seqOf :: Getting [c] a c -> Strategy c -> Strategy a
seqOf l s = seqList s . toListOf l
+{-# INLINE seqOf #-}

0 comments on commit 263013c

Please sign in to comment.