[Haskell-cafe] instance Applicative f => Applicative (StateT s f)