1 files changed, 2 insertions, 5 deletions

diff --git a/Announcer.hs b/Announcer.hs
index 89dc5c3b..c6a04cb1 100644
--- a/Announcer.hs
+++ b/Announcer.hs
@@ -29,15 +29,15 @@ module Announcer
 
 import Data.Wrapper.PSQ         as PSQ
 
+import Control.Applicative
 import Control.Concurrent.Lifted.Instrument
 import Control.Concurrent.STM
 import Control.Monad
-import Control.Applicative
 import Data.ByteString                      (ByteString)
 import qualified Data.ByteString.Char8      as Char8
 import Data.Hashable
 import Data.Time.Clock.POSIX
-import qualified GHC.Generics as Generics
+import qualified GHC.Generics               as Generics
 -- import Generic.Data.Internal.Meta as Lyxia
 
 newtype AnnounceKey = AnnounceKey ByteString
@@ -134,9 +134,6 @@ readTChanTimeout :: TVar Bool -> TChan a -> STM (Maybe a)
 readTChanTimeout delay pktChannel = do
   Just <$> readTChan pktChannel <|> pure Nothing <* (readTVar >=> check) delay
 
-toMicroseconds :: POSIXTime -> Int
-toMicroseconds = round . (* 1000) . (* 1000)
-
 data SchedulerCommand
   = ShutdownScheduler
   | ScheduleAction KPS -- run an action at an absolute time (todo: use UTCTime)