@@ -77,6 +77,7 @@ doubleConnect icount req = do
78nextPort :: I.IORef Int
78nextPort :: I.IORef Int
79nextPort = unsafePerformIO $ I.newIORef 5000
79nextPort = unsafePerformIO $ I.newIORef 5000
80+{-# NOINLINE nextPort #-}
81getPort :: IO Int
82getPort :: IO Int
82getPort = do
83getPort = do