diff --git a/generator/Data/XCB/Python/Parse.hs b/generator/Data/XCB/Python/Parse.hs
--- a/generator/Data/XCB/Python/Parse.hs
+++ b/generator/Data/XCB/Python/Parse.hs
@@ -484,11 +484,13 @@
mkPop :: String
-> String
-> Statement ()
- mkPop toPop n = mkAssign n $ mkCall (mkDot toPop "pop") [mkInt 0]
+ mkPop toPop n =
+ let pop = mkCall (mkDot toPop "pop") [mkInt 0]
+ in if null n then StmtExpr pop () else mkAssign n pop
mkBasePack (Nothing, "") = []
mkBasePack (n, c) =
- let n' = maybe "_" id n
+ let n' = maybe "" id n
in [(n', Left (Just (mkCall "struct.pack" [mkStr ('=' : c), mkName n'])))]
mkPackMethod :: String
diff --git a/test/generator/xinput.xml b/test/generator/xinput.xml
new file mode 100644
--- /dev/null
+++ b/test/generator/xinput.xml
@@ -0,0 +1,82 @@
+
+
+ - 0
+ - 1
+ - 2
+ - 3
+ - 8
+ - 9
+
+
+
+
+
+ len
+ 4
+
+
+
+
+
+
+ type
+
+
+ Key
+
+
+
+ num_keys
+
+
+
+ Button
+
+
+
+
+
+ num_buttons
+ 31
+
+ 32
+
+
+
+ num_buttons
+
+
+
+ Valuator
+
+
+
+
+
+
+
+
+
+
+
+ Scroll
+
+
+
+
+
+
+
+
+ Touch
+
+
+
+
+ Gesture
+
+
+
+
+
+
diff --git a/xcffib.cabal b/xcffib.cabal
--- a/xcffib.cabal
+++ b/xcffib.cabal
@@ -1,5 +1,5 @@
name: xcffib
-version: 1.1.1
+version: 1.1.2
synopsis: A cffi-based python binding for X
homepage: http://github.com/tych0/xcffib
license: OtherLicense