Made peerData return IO String while setPeerData use String as the second argument.