diff options
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 |