1 files changed, 1 insertions, 1 deletions

diff --git a/dht/Announcer.hs b/dht/Announcer.hs
index 98fcdf94..e7c0bcd2 100644
--- a/dht/Announcer.hs
+++ b/dht/Announcer.hs
@@ -63,7 +63,7 @@ decodeAnnounceKey _ k = AnnounceKey k
 -- themselves, they are typically bootstrapped using 'scheduleImmediately' with
 -- 'NewAnnouncement' which triggers the ordinary recurring scheduling of
 -- 'Announce'.
-data ScheduledItem = ScheduledItem (Announcer -> AnnounceKey -> POSIXTime -> STM (IO ()))
+newtype ScheduledItem = ScheduledItem (Announcer -> AnnounceKey -> POSIXTime -> STM (IO ()))
  deriving Generics.Generic