Rename Fixed to WlFixed

src/Quasar/Wayland/Protocol.hs

@@ -10,7 +10,7 @@ module Quasar.Wayland.Protocol (
   getMessageHandler,
 
   -- ** Wayland types
-  Fixed(..),
+  WlFixed(..),
   WlString(..),
   toString,
 

src/Quasar/Wayland/Protocol/Core.hs

@@ -6,7 +6,7 @@ module Quasar.Wayland.Protocol.Core (
   NewId,
   GenericNewId,
   Opcode,
-  Fixed(..),
+  WlFixed(..),
   WlString(..),
   toString,
   fromString,
@@ -115,10 +115,10 @@ data GenericNewId = GenericNewId WlString Version Word32
 
 
 -- | Signed 24.8 decimal numbers.
-newtype Fixed = Fixed Word32
+newtype WlFixed = WlFixed Word32
   deriving newtype Eq
 
-instance Show Fixed where
+instance Show WlFixed where
   show x = "[fixed " <> show x <> "]"
 
 
@@ -162,9 +162,9 @@ instance WireFormat Word32 where
   getArgument = pure <$> getWord32host
   showArgument = show
 
-instance WireFormat Fixed where
-  putArgument (Fixed repr) = pure $ MessagePart (putWord32host repr) 4 mempty
-  getArgument = pure . Fixed <$> getWord32host
+instance WireFormat WlFixed where
+  putArgument (WlFixed repr) = pure $ MessagePart (putWord32host repr) 4 mempty
+  getArgument = pure . WlFixed <$> getWord32host
   showArgument = show
 
 instance WireFormat WlString where

src/Quasar/Wayland/Protocol/TH.hs

@@ -498,7 +498,7 @@ argumentWireType argSpec = liftArgumentWireType argSpec.argType
 liftArgumentWireType :: ArgumentType -> Q Type
 liftArgumentWireType IntArgument = [t|Int32|]
 liftArgumentWireType UIntArgument = [t|Word32|]
-liftArgumentWireType FixedArgument = [t|Fixed|]
+liftArgumentWireType FixedArgument = [t|WlFixed|]
 liftArgumentWireType StringArgument = [t|WlString|]
 liftArgumentWireType ArrayArgument = [t|BS.ByteString|]
 liftArgumentWireType (ObjectArgument iName) = [t|ObjectId $(litT (strTyLit iName))|]