[undo framework added paolo.veronelli@gmail.com**20080205063946] { hunk ./Editor.hs 10 +import Undo hunk ./Editor.hs 27 -type StatoE m w = StateT (Stato w) m +type StatoE m w = UndoT (Stato w) m hunk ./Editor.hs 202 -run editor sio w = flip execStateT w $ flip runReaderT sio $ runErrorT editor >>= \x -> +run editor sio w = flip execUndoT w $ flip runReaderT sio $ runErrorT editor >>= \x -> hunk ./docs/Editor.html 133 -> m w = StateT ( m w = UndoT ( m w = StateT ( m w = UndoT (CloseMainControlMainRestoreMain