Browse files

comment for what eeks should be.

  • Loading branch information...
1 parent fdebac0 commit 6ebbc3fa4bbead89404ec71efa9fc79f775d0322 @roconnor committed Jun 3, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/Control/Comonad/StaredStore.hs
View
1 src/Control/Comonad/StaredStore.hs
@@ -51,6 +51,7 @@ seekss f = coproduct (pure . runIdentity) h . runStaredStore
peekss :: (b -> b) -> StaredStore b a -> a
peekss f = extract . seekss f
+-- eeks :: Functor f => (b -> f b) -> Store b a -> f a
eekss :: Applicative f => (b -> f b) -> (StaredStore b a) -> f a
eekss f (StaredStore s) = coproduct (pure . runIdentity) h s
where

0 comments on commit 6ebbc3f

Please sign in to comment.