git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@4 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 1 insertions, 14 deletions

diff --git a/HsBot.hs b/HsBot.hs
index 2d0c5f5..dd0e875 100644
--- a/HsBot.hs
+++ b/HsBot.hs
@@ -2,8 +2,7 @@
 
 module Main (main) where
 
-import Control.Monad (forM)
---import Control.Monad.State
+import Control.Monad.State
 import IO
 import Monad
 import Random
@@ -121,18 +120,6 @@ readline = do
 		_ -> putStrLn ""
 
 
-newtype Transformator a = Transformator { execTransformator :: (a, Conf) }
-
-runTransformator = execTransformator
-record s = Transformator ([s], ())
-
-instance Monad Transformator where
-	return c = Transformator ([], c)
-	c >>= f = let (s, c') = execTransformator c
-		      s' = f s
-		  in Transformator (s', c')
-
-
 main :: IO ()
 main = putStrLn "Good bye"