Skip to content
Snippets Groups Projects
Commit 11233dea authored by Jens Nolte's avatar Jens Nolte
Browse files

Allow destructors to have arguments

parent 6948fd25
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/Quasar/Wayland/Protocol/TH.hs
+ 0
− 2
View file @ 11233dea
...@@ -621,8 +621,6 @@ parseMessage isRequest interface (opcode, element) = do ...@@ -621,8 +621,6 @@ parseMessage isRequest interface (opcode, element) = do
Just "destructor" -> pure True Just "destructor" -> pure True
Just messageType -> fail $ "Unknown message type: " <> messageType Just messageType -> fail $ "Unknown message type: " <> messageType
when (isDestructor && not (null arguments)) $ fail $ "Destructor must not have arguments: " <> loc
forM_ arguments \arg -> do forM_ arguments \arg -> do
when when
do arg.argType == GenericNewIdArgument && (interface /= "wl_registry" || name /= "bind") do arg.argType == GenericNewIdArgument && (interface /= "wl_registry" || name /= "bind")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment