Fix PSQ warnings, Unique is never unpackable

Author: knsd

src/Control/Timeout/EventManager/PSQ.hs

@@ -95,7 +95,7 @@ import Control.Timeout.Types (Timeout)
 
 -- | @E k p@ binds the key @k@ with the priority @p@.
 data Elem a = E
-    { key   :: {-# UNPACK #-} !Key
+    { key   :: !Key
     , prio  :: {-# UNPACK #-} !Prio
     , value :: a
     } deriving (Eq)
@@ -109,7 +109,7 @@ type Key = Timeout
 data PSQ a = Void
            | Winner {-# UNPACK #-} !(Elem a)
                     !(LTree a)
-                    {-# UNPACK #-} !Key  -- max key
+                    !Key  -- max key
            deriving (Eq)
 
 -- | /O(1)/ The number of elements in a queue.
@@ -290,12 +290,12 @@ data LTree a = Start
              | LLoser {-# UNPACK #-} !Size
                       {-# UNPACK #-} !(Elem a)
                       !(LTree a)
-                      {-# UNPACK #-} !Key  -- split key
+                      !Key  -- split key
                       !(LTree a)
              | RLoser {-# UNPACK #-} !Size
                       {-# UNPACK #-} !(Elem a)
                       !(LTree a)
-                      {-# UNPACK #-} !Key  -- split key
+                      !Key  -- split key
                       !(LTree a)
              deriving (Eq)