neocturne/CacheArrow
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some cleanup

Browse source
This commit is contained in:
Matthias Schiffer 2011-08-21 03:59:18 +02:00
parent 26c51b9e15
commit 4c485dd062
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Control/CacheArrow.hs
View file

@ -1,4 +1,4 @@
{-# LANGUAGE ExistentialQuantification, FlexibleInstances, MultiParamTypeClasses, Arrows #-} {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, Arrows #-}
module Control.CacheArrow ( CacheArrow module Control.CacheArrow ( CacheArrow
, runCache' , runCache'
@ -31,7 +31,7 @@ instance Arrow a => ArrowTransformer CacheArrow a where
lift = CacheArrow Nothing lift = CacheArrow Nothing
runCacheAlways :: (ArrowChoice a, Eq b) => CacheArrow a b c -> a b (c, CacheArrow a b c) runCacheAlways :: Arrow a => CacheArrow a b c -> a b (c, CacheArrow a b c)
runCacheAlways (CacheArrow _ f) = proc b -> do runCacheAlways (CacheArrow _ f) = proc b -> do
c <- f -< b c <- f -< b
returnA -< (c, CacheArrow (Just (b, c)) f) returnA -< (c, CacheArrow (Just (b, c)) f)