optional, some, many
) where
-#ifdef __HADDOCK__
-import Prelude
-#endif
+import Prelude hiding (id,(.))
+import qualified Prelude
-import Control.Compositor
+import Control.Category
import Control.Arrow
(Arrow(arr, (&&&)), ArrowZero(zeroArrow), ArrowPlus((<+>)))
import Control.Monad (liftM, ap, MonadPlus(..))