From af903e0031288f6e4f1c8a63db8ef9efc63f8b91 Mon Sep 17 00:00:00 2001 From: pb Date: Fri, 26 Mar 2010 22:31:54 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@41 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- Env.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Env.hs') diff --git a/Env.hs b/Env.hs index 5064392..bb6a0b8 100644 --- a/Env.hs +++ b/Env.hs @@ -3,7 +3,7 @@ module Env where import Conf import State -type Dispatch = String -> (String -> IO ()) -> Env -> IO () +type Dispatch = String -> (String -> IO ()) -> Env -> IO Env data Env = DispatchEnv State Conf Dispatch | Env State Conf castEnv :: Env -> Env -- cgit v1.2.3