diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index 69da9773eeafc74b0809dfde128d9d0fba3a7b8f..eaade36e066afd330aef562c57837838e37af25e 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -174,9 +174,9 @@ instance WireFormat GenericNewId where
   showArgument newId = "new [unknown]@" <> show newId
 
 instance WireFormat Void where
-  putArgument = undefined
-  getArgument = undefined
-  showArgument = undefined
+  putArgument = absurd
+  getArgument = pure <$> get
+  showArgument = absurd
 
 
 -- | Class for a proxy type (in the haskell sense) that describes a Wayland interface.