From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:43:48 +0000
Subject: removed src for 2.9

---
 src/GF/GFCC/ComposOp.hs | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 src/GF/GFCC/ComposOp.hs

(limited to 'src/GF/GFCC/ComposOp.hs')

diff --git a/src/GF/GFCC/ComposOp.hs b/src/GF/GFCC/ComposOp.hs
deleted file mode 100644
index de2522bc7..000000000
--- a/src/GF/GFCC/ComposOp.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-{-# OPTIONS_GHC -fglasgow-exts #-}
-module GF.GFCC.ComposOp (Compos(..),composOp,composOpM,composOpM_,composOpMonoid,
-                 composOpMPlus,composOpFold) where
-
-import Control.Monad.Identity
-import Data.Monoid
-
-class Compos t where
-  compos :: (forall a. a -> m a) -> (forall a b. m (a -> b) -> m a -> m b)
-         -> (forall a. t a -> m (t a)) -> t c -> m (t c)
-
-composOp :: Compos t => (forall a. t a -> t a) -> t c -> t c
-composOp f = runIdentity . composOpM (Identity . f)
-
-composOpM :: (Compos t, Monad m) => (forall a. t a -> m (t a)) -> t c -> m (t c)
-composOpM = compos return ap
-
-composOpM_ :: (Compos t, Monad m) => (forall a. t a -> m ()) -> t c -> m ()
-composOpM_ = composOpFold (return ()) (>>)
-
-composOpMonoid :: (Compos t, Monoid m) => (forall a. t a -> m) -> t c -> m
-composOpMonoid = composOpFold mempty mappend
-
-composOpMPlus :: (Compos t, MonadPlus m) => (forall a. t a -> m b) -> t c -> m b
-composOpMPlus = composOpFold mzero mplus
-
-composOpFold :: Compos t => b -> (b -> b -> b) -> (forall a. t a -> b) -> t c -> b
-composOpFold z c f = unC . compos (\_ -> C z) (\(C x) (C y) -> C (c x y)) (C . f)
-
-newtype C b a = C { unC :: b }
-- 
cgit v1.2.3