diff options
| author | Hannes Schulze <haschu0103@outlook.de> | 2024-08-14 22:34:25 +0200 |
|---|---|---|
| committer | Hannes Schulze <haschu0103@outlook.de> | 2024-08-14 22:34:25 +0200 |
| commit | 7b2990b55da8a43e1fe4d8c04e77a76ebac446c8 (patch) | |
| tree | 86d9a0ea3d86af8a62d3aea61ccca98f54de02bd /protocols/codegen/Wayland/CodeGen/Utils.hs | |
| parent | 53c274ad747bfbac34e979bee5f0841f9568c89f (diff) | |
Diffstat (limited to 'protocols/codegen/Wayland/CodeGen/Utils.hs')
| -rw-r--r-- | protocols/codegen/Wayland/CodeGen/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |