diff --git a/src/Vervis/Model/TH.hs b/src/Vervis/Model/TH.hs
index 6ad7f06..55007a8 100644
--- a/src/Vervis/Model/TH.hs
+++ b/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
             }