Fix <*> for StateT