Replace 'runQuery' with monadic 'runQueryM'