keyText :: EntityDef -> Text
keyText t = unHaskellName (entityHaskell t) ++ "Key"
keyText :: EntityDef -> Text
keyText t = unHaskellName (entityHaskell t) ++ "Key"
keyText t = unHaskellName (entityHaskell t) ++ "Key"