diff --git a/src/Proto3/Suite/DotProto/Generate.hs b/src/Proto3/Suite/DotProto/Generate.hs
index 98e37b68..85fa10a9 100644
--- a/src/Proto3/Suite/DotProto/Generate.hs
+++ b/src/Proto3/Suite/DotProto/Generate.hs
@@ -620,6 +620,9 @@ dotProtoMessageD ctxt parentIdent messageIdent messageParts = do
           DotProtoMessageOneOf ident _ -> do
             name <- dpIdentUnqualName ident
             pure [(name, False)]
+          DotProtoMessageDefinition (DotProtoEnum _ ident _) -> do
+            name <- dpIdentUnqualName ident
+            pure [(name, True)]
           _                            -> do pure []
 
     fieldss <- traverse getEither messageParts