In persistent models for migrations, suffix the names of uniques too

src/Vervis/Model/TH.hs

@@ -109,10 +109,15 @@ append entnames suffix entity =
             { foreignRefTableHaskell = updateEnt $ foreignRefTableHaskell f
             }
 
+        updateUnique u = u
+            { uniqueHaskell = updateName $ uniqueHaskell u
+            }
+
     in  entity
             { entityHaskell  = updateName $ entityHaskell entity
             , entityId       = updateField $ entityId entity
             , entityFields   = map updateField $ entityFields entity
+            , entityUniques  = map updateUnique $ entityUniques entity
             , entityForeigns = map updateForeign $ entityForeigns entity
             }