yesod-dsl-0.1.1.19: codegen/entity-class-field-wrapper.cg

~{entityFieldName e f} :: ~{entityName e} -> Maybe (~{className c}InstanceId)
~{entityFieldName e f} e = listToMaybe $ catMaybes [
~{indent 8 $ intercalate ", " $ map (wrapInstance c f) $ instancesOf m c}
    ]