printStatus :: (Enum a, Show a1) => a -> a1 -> IO ()
printStatus p s = putStrLn $ "Socket " ++ (show . fromEnum) p ++ " is " ++ show s
printStatus :: (Enum a, Show a1) => a -> a1 -> IO ()
printStatus p s = putStrLn $ "Socket " ++ (show . fromEnum) p ++ " is " ++ show s
printStatus p s = putStrLn $ "Socket " ++ (show . fromEnum) p ++ " is " ++ show s