reviousMode' MaildirMode = (=<<) put $ get >>= \st -> return st { exitRequested = True }

previousMode' MaildirMode = (=<<) put $ get >>= \st -> return st { exitRequested = True }
previousMode' MaildirMode = (=<<) put $ get >>= \st -> return st { exitRequested = True }