diff --git a/src/Quasar/Wayland/Utils/Socket.hs b/src/Quasar/Wayland/Utils/Socket.hs
index c74a955a550c12df4f0779dea787db71762cbe16..b9ab077f5d366ff7f398f0b7a4b8e73ec25e8c14 100644
--- a/src/Quasar/Wayland/Utils/Socket.hs
+++ b/src/Quasar/Wayland/Utils/Socket.hs
@@ -15,7 +15,7 @@ import Quasar.Prelude
 instance SA.SocketAddress () where
   sizeOfSocketAddress _ = 0
   peekSocketAddress _ptr = pure ()
-  pokeSocketAddress _prt () = pure ()
+  pokeSocketAddress _ptr () = pure ()