Extract thread delay helper function.

src/BitTorrent/Core.hs

@@ -3,6 +3,7 @@ module BitTorrent.Core
     ) where
 
 import Control.Concurrent
+import Control.Concurrent.Delay
 import Control.Monad
 import Data.Maybe
 import qualified Data.Map as Map
@@ -39,6 +40,6 @@ run f = do
         Left e -> fail $ "Failed to parse bencode file: " ++ e
 
     -- Download!
-    forever $ threadDelay $ 1000000 * 1 -- 1 second
+    forever $ delaySeconds 1
 
     return ()

src/BitTorrent/PeerManager.hs

@@ -3,6 +3,7 @@ module BitTorrent.PeerManager
     ) where
 
 import Control.Concurrent
+import Control.Concurrent.Delay
 import Control.Monad.State
 
 import BitTorrent.Peer
@@ -17,5 +18,4 @@ runPeerMgr m ps = do
     -- Loop until download finishes, computing interests
     forever $ do
         putStrLn "Tick"
-        threadDelay $ 1000000 * 1 -- 1 second
-
+        delaySeconds 1

src/Control/Concurrent/Delay.hs

@@ -0,0 +1,8 @@
+module Control.Concurrent.Delay
+    ( delaySeconds
+    ) where
+
+import Control.Concurrent
+
+delaySeconds :: Int -> IO ()
+delaySeconds n = threadDelay $ 1000 * 1000 * n