initialize :: PeerThread -> IO PeerThread
initialize pt = putStrLn "Initializing peer" >> return pt
initialize :: PeerThread -> IO PeerThread
initialize pt = putStrLn "Initializing peer" >> return pt
initialize pt = putStrLn "Initializing peer" >> return pt