From 4c485dd062ad3823471e7dde1166d556bb385487 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Sun, 21 Aug 2011 03:59:18 +0200
Subject: Some cleanup

---
 src/Control/CacheArrow.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Control/CacheArrow.hs')

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)
-- 
cgit v1.2.3