From 6ca6b3ae67c2e345be8d672ccc542b4edff99e3d Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 28 Nov 2009 19:57:09 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@4 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot.hs | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) (limited to 'HsBot.hs') 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" -- cgit v1.2.3