diff options
| -rw-r--r-- | src/Control/CacheArrow.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Control/CacheArrow.hs b/src/Control/CacheArrow.hs index d701986..ff77112 100644 --- a/src/Control/CacheArrow.hs +++ b/src/Control/CacheArrow.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE ExistentialQuantification, FlexibleInstances, MultiParamTypeClasses, Arrows #-} +{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, Arrows #-} module Control.CacheArrow ( CacheArrow , runCache' @@ -31,7 +31,7 @@ instance Arrow a => ArrowTransformer CacheArrow a where 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 c <- f -< b returnA -< (c, CacheArrow (Just (b, c)) f) |