From 7b2990b55da8a43e1fe4d8c04e77a76ebac446c8 Mon Sep 17 00:00:00 2001 From: Hannes Schulze Date: Wed, 14 Aug 2024 22:34:25 +0200 Subject: add documentation to generated code --- protocols/codegen/Wayland/CodeGen/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'protocols/codegen/Wayland/CodeGen/Utils.hs') diff --git a/protocols/codegen/Wayland/CodeGen/Utils.hs b/protocols/codegen/Wayland/CodeGen/Utils.hs index 9f43ab0..b8596f1 100644 --- a/protocols/codegen/Wayland/CodeGen/Utils.hs +++ b/protocols/codegen/Wayland/CodeGen/Utils.hs @@ -74,7 +74,7 @@ resolveMessageType m = case msgArguments m of resolveEnumType :: EnumDesc -> State TypeInfo EnumName resolveEnumType e = EnumName e <$> name - where name = getFreeTypeName (pascalCase (enumName e)) $ if enumBitfield e then Just "Flag" else Nothing + where name = getFreeTypeName (pascalCase (enumName e)) $ Just (if enumBitfield e then "Flag" else "Value") getFreeTypeName :: String -> Maybe String -> State TypeInfo String getFreeTypeName requested conflictSuffix = attemptRequested -- cgit v1.3.1