用于数据类型重命名的Safecopy迁移

Question

我正在处理已经拥有库safecopy和safecopy-migrate的迁移历史记录的项目。 目前数据类型是

data Foo = Foo { bar :: String
               , baz :: String
               }

deriveSafeCopy 8 'extension ''Foo

changelog ''Foo (Current 8, Past 7) [
  Added "baz" [hs|mempty|]
  ]

deriveSafeCopy 7 'base ''Foo_v7

我想重命名数据类型名称和构造函数名称

data NewFoo = NewFoo { bar :: String
                     , baz :: String
                     }

所有其他东西都保持不变。我应该更改什么来执行此类迁移？