GC sockets - #269

module Main (main) where

import Control.Concurrent
import System.Mem
import Network.Socket

main :: IO ()
main = do
    createSocket
    gc "with socket out of scope"

createSocket :: IO ()
createSocket = do
  putStrLn "create new socket"
  sock <- socket AF_INET Stream defaultProtocol
  gc "with socket in scope"
  let MkSocket fd _ _ _ _ = sock -- this keeps sock.
  print fd
  putStrLn "socket goes out of scope now"

gc :: String -> IO ()
gc s = do
  putStrLn $ s ++ ": 1st wait"
  threadDelay 1000000
  putStrLn $ s ++ ": perform gc"
  performGC
  putStrLn $ s ++ ": 2nd wait"
  threadDelay 1000000
  putStrLn $ s ++ ": exit gc"