Limit.hs

-----------------------------------------------------------------------------
-- |
-- Module      :  Control.Functor.Limit
-- Copyright   :  (C) 2008 Edward Kmett
-- License     :  BSD-style (see the file LICENSE)
--
-- Maintainer  :  Edward Kmett <ekmett@gmail.com>
-- Stability   :  experimental
-- Portability :  non-portable (rank-2 polymorphism/existentials in Ran/Lan)
--
----------------------------------------------------------------------------
module Control.Functor.Limit
	( Limit, HasLimit(limit)
	, Colimit(..)
	) where

import Prelude hiding (abs)
import Data.Monoid

-- | @type Limit = Ran (Const Void)@
-- Limit { runLimit :: forall a. f a }
type Limit f = forall a. f a 

class HasLimit f where
	limit :: f a

instance HasLimit Maybe where
	limit = Nothing

instance HasLimit [] where
	limit = []

instance Monoid a => HasLimit (Either a) where
	limit = (Left mempty)

-- | @type Colimit = Lan (Const Void)@
data Colimit f = forall b. Colimit { runColimit :: f b }