データ型のレコードを更新するのって面倒いよね。

data Foo = Foo {bar :: Int}
let foo = Foo 1
let baz =foo {bar = 10 + bar foo}

この bar = 10 + bar foo を bar = 10 + bar でできるようにする言語拡張ってないの？