Before submitting your PR, check that you've:

• Documented new APIs with Haddock markup
• Added @since declarations to the Haddock
• Ran stylish-haskell on any changed files.
• Adhered to the code style (see the .editorconfig file for details)

After submitting your PR:

• Update the Changelog.md file with a link to your PR
• Bumped the version number if there isn't an (unreleased) on the Changelog
• Check that CI passes (or if it fails, for reasons unrelated to your change, like CI timeouts)

A step towards taming the laddering in the setEmbedField function. The main part being consolidating this portion to using do notation instead:

I've extracted that out into this top level function here:

lookupEmbedEntity :: EmbedEntityMap -> FieldDef -> Maybe EntityNameHS
lookupEmbedEntity allEntities field = do
    entName <- EntityNameHS <$> stripId (fieldType field)
    guard (M.member entName allEntities) -- check entity name exists in embed map
    pure entName