atl-15310.92: Control/Arrow/List/Class.hs

module Control.Arrow.List.Class where

import Control.Arrow;
import Control.Arrow.Trans;

class Arrow r => ArrowList r where {
  arrL :: ( a  -> [b]) -> r a b;
  mapL :: ([b] -> [c]) -> r a b -> r a c;
};