[simplified Logger
martin.hofmann@uni-bamberg.de**20081126093153
 removed ErrorT from LoggerMonad and added a simple Monad for logging (EL)
] hunk ./src/Logging/Logger.hs 5
-    runELT, -- runLT,
+    runELT,  runEL,
hunk ./src/Logging/Logger.hs 9
+    EL,
hunk ./src/Logging/Logger.hs 16
-    module Control.Monad.Error, 
hunk ./src/Logging/Logger.hs 25
-import Control.Monad (liftM, liftM2, liftM3)
-import Control.Monad.Writer (MonadWriter(..), WriterT, Writer(..), runWriter, runWriterT)
+import Control.Monad (liftM, liftM2, liftM3,when)
+import Control.Monad.Writer (MonadWriter(..), WriterT, Writer(..), runWriter, runWriterT, )
hunk ./src/Logging/Logger.hs 29
-import Control.Monad.Error (ErrorT(..), MonadError(..), when)
hunk ./src/Logging/Logger.hs 42
-
-type Error = String
-
---instance Pretty Error where
---    view s = "ERROR: " ++ (show s)
hunk ./src/Logging/Logger.hs 52
+--                        GlobalLogger, CurrentLogger
hunk ./src/Logging/Logger.hs 89
-class ( MonadError Error m
-      , MonadState LogState m
+class ( MonadState LogState m
hunk ./src/Logging/Logger.hs 153
-
---instance (Monad m) => ELog (EL m) 
---     
---type EL m = (ErrorT String (StateT (Priority,Logger) (WriterT Log m )))
---      
---runEL :: (Monad m, Monoid w) =>
---    ErrorT e (StateT (Priority, [Char]) (WriterT w m)) a  -> m (Either e a, w)
---runEL = \m -> runWriterT (evalStateT (runErrorT m) (DEBUG,""))
hunk ./src/Logging/Logger.hs 154
-type EL = (ErrorT Error (StateT LogState (WriterT Log Identity)))
-
---runEL :: EL a -> (Either Error a, Log)
---runEL = \m -> runIdentity (runWriterT (evalStateT (runErrorT m) (DEBUG,"","")))
---instance ELog EL
- 
-type ELT m = (ErrorT Error (StateT LogState (WriterT Log m)))
+type ELT m = (StateT LogState (WriterT Log m))
hunk ./src/Logging/Logger.hs 156
-runELT :: (Monad m) => (ELT m a) -> m (Either Error a, Log)
-runELT =  \m -> (runWriterT (evalStateT (runErrorT m) (DEBUG,"","")))             
+runELT :: (Monad m) => (ELT m a) -> m (a, Log)
+runELT =  \m -> (runWriterT (evalStateT m (DEBUG,"","")))             
+
+type EL = ELT Identity
+runEL = runIdentity.runELT
hunk ./src/Logging/Logger.hs 162
+noLog :: (Monad m) => ELT m a -> m a
+noLog =  \m -> liftM fst $ runELT m