Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

haddock fixes (had renamed parTraversal and evalTraversal to parOf an…

…d evalOf)
  • Loading branch information...
commit 9315095cfa649f4c93cec5539df7162872e51244 1 parent f8dbe6e
@ekmett authored
Showing with 10 additions and 10 deletions.
  1. +9 −9 src/Control/Parallel/Strategies/Lens.hs
  2. +1 −1  src/Control/Seq/Lens.hs
View
18 src/Control/Parallel/Strategies/Lens.hs
@@ -25,14 +25,14 @@ import Control.Parallel.Strategies
-- according to the given strategy.
--
-- @
--- 'evalTraversable' = 'evalTraversal' 'traverse' = 'traverse'
--- 'evalTraversal' = 'id'
+-- 'evalTraversable' = 'evalOf' 'traverse' = 'traverse'
+-- 'evalOf' = 'id'
-- @
--
-- @
--- evalTraversal :: 'Simple' 'Lens' a b -> 'Strategy' b -> 'Strategy' a
--- evalTraversal :: 'Simple' 'Traversal' a b -> 'Strategy' b -> 'Strategy' a
--- evalTraversal :: (b -> 'Eval' b) -> a -> 'Eval' a) -> 'Strategy' b -> 'Strategy' a
+-- evalOf :: 'Simple' 'Lens' a b -> 'Strategy' b -> 'Strategy' a
+-- evalOf :: 'Simple' 'Traversal' a b -> 'Strategy' b -> 'Strategy' a
+-- evalOf :: (b -> 'Eval' b) -> a -> 'Eval' a) -> 'Strategy' b -> 'Strategy' a
-- @
evalOf :: SimpleLensLike Eval a b -> Strategy b -> Strategy a
evalOf l = l
@@ -40,12 +40,12 @@ evalOf l = l
-- | Evaluate the targets of a 'Lens' or 'Traversal' according into a
-- data structure according to a given 'Strategy' in parallel.
--
--- @'parTraversable' = 'parTraversal' 'traverse'@
+-- @'parTraversable' = 'parOf' 'traverse'@
--
-- @
--- parTraversal :: 'Simple' 'Lens' a b -> 'Strategy' b -> 'Strategy' a
--- parTraversal :: 'Simple' 'Traversal' a b -> 'Strategy' b -> 'Strategy' a
--- parTraversal :: ((b -> 'Eval' b) -> a -> 'Eval' a) -> 'Strategy' b -> 'Strategy' a
+-- parOf :: 'Simple' 'Lens' a b -> 'Strategy' b -> 'Strategy' a
+-- parOf :: 'Simple' 'Traversal' a b -> 'Strategy' b -> 'Strategy' a
+-- parOf :: ((b -> 'Eval' b) -> a -> 'Eval' a) -> 'Strategy' b -> 'Strategy' a
-- @
parOf :: SimpleLensLike Eval a b -> Strategy b -> Strategy a
parOf l s = l (rparWith s)
View
2  src/Control/Seq/Lens.hs
@@ -19,6 +19,6 @@ import Control.Seq
-- | Evaluate the elements targeted by a 'Lens', 'Traversal', 'Iso',
-- 'Getter' or 'Fold' according to the given strategy.
--
--- > seqFoldable = seqOf folded
+-- @'seqFoldable' = 'seqOf' 'folded'@
seqOf :: Getting [c] a c -> Strategy c -> Strategy a
seqOf l s = seqList s . toListOf l
Please sign in to comment.
Something went wrong with that request. Please try again.