Skip to content

Commit

Permalink
Minor comment fixes
Browse files Browse the repository at this point in the history
Fixes #96 [ci skip]
  • Loading branch information
glguy committed Sep 4, 2015
1 parent ea8c8f3 commit 8a54bc2
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 4 deletions.
2 changes: 1 addition & 1 deletion examples/Cabbage.lhs
Expand Up @@ -43,7 +43,7 @@ rest intact:

@
*Cabbage> singleOut1 (== Sheep) [Wolf, Sheep, Cabbage]
[(Just Wolf,[Sheep,Cabbage]),(Just Sheep,[Wolf,Cabbage]),(Just Cabbage,[Wolf,Sheep]),(Nothing,[Wolf,Sheep,Cabbage])]
(Just Sheep,[Wolf,Cabbage])
@

> singleOutAll :: [a] -> [(Maybe a,[a])]
Expand Down
4 changes: 2 additions & 2 deletions src/Control/Monad/Free.hs
Expand Up @@ -304,12 +304,12 @@ iter :: Functor f => (f a -> a) -> Free f a -> a
iter _ (Pure a) = a
iter phi (Free m) = phi (iter phi <$> m)

-- | Like iter for applicative values.
-- | Like 'iter' for applicative values.
iterA :: (Applicative p, Functor f) => (f (p a) -> p a) -> Free f a -> p a
iterA _ (Pure x) = pure x
iterA phi (Free f) = phi (iterA phi <$> f)

-- | Like iter for monadic values.
-- | Like 'iter' for monadic values.
iterM :: (Monad m, Functor f) => (f (m a) -> m a) -> Free f a -> m a
iterM _ (Pure x) = return x
iterM phi (Free f) = phi (iterM phi <$> f)
Expand Down
2 changes: 1 addition & 1 deletion src/Control/Monad/Free/TH.hs
Expand Up @@ -240,7 +240,7 @@ genFreeCon typeSig cname = do
makeFree :: Name -> Q [Dec]
makeFree = genFree True Nothing

-- | Like 'makeFreeCon', but does not provide type signatures.
-- | Like 'makeFree', but does not provide type signatures.
-- This can be used to attach Haddock comments to individual arguments
-- for each generated function.
--
Expand Down

0 comments on commit 8a54bc2

Please sign in to comment.