sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 01:14:51 +09:00
Code Issues Activity

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

Browse source
This commit is contained in:
fr33domlover 2019-05-25 03:20:01 +00:00
parent 5479c99e1c
commit d77877eba5
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Vervis/Model/TH.hs
View file

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