put incrDuration and decrDuration inside the StateT s IO () monad stack