1 files changed, 1 insertions, 1 deletions
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