From e1bb18b814eaf6c951893aa82e69e0822341ca09 Mon Sep 17 00:00:00 2001
From: Mitchell Rosen <mitchellwrosen@gmail.com>
Date: Sun, 1 Oct 2023 12:14:57 -0400
Subject: [PATCH] remove a couple bogus unpack pragmas

---
 src/TimerWheel.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/TimerWheel.hs b/src/TimerWheel.hs
index 40691ce..4fbd21e 100644
--- a/src/TimerWheel.hs
+++ b/src/TimerWheel.hs
@@ -106,7 +106,7 @@ data Config = Config
   { -- | Spoke count
     spokes :: {-# UNPACK #-} !Int,
     -- | Resolution
-    resolution :: {-# UNPACK #-} !Seconds
+    resolution :: !Seconds
   }
   deriving stock (Generic, Show)
 
@@ -287,7 +287,7 @@ timerBucketInsert timestamp timer =
     TimersN old -> TimersN (timer : old)
 
 data Timers
-  = Timers1 {-# UNPACK #-} !Timer
+  = Timers1 !Timer
   | -- 2+ timers, stored in the reverse order that they were enqueued (so the last should fire first)
     TimersN ![Timer]