readUserDisconnectedNotification :: IO Int -> Inbound.Header -> IO Inbound.InboundMessage
readUserDisconnectedNotification readInt header =
  do
    population <- readInt
    return . Inbound.UserDisconnectedMessage $ Inbound.UserDisconnected population (Inbound.messageRefNumber header)
readUserDisconnectedNotification :: IO Int -> Inbound.Header -> IO Inbound.InboundMessage
readUserDisconnectedNotification readInt header =
  do
    population <- readInt
    return . Inbound.UserDisconnectedMessage $ Inbound.UserDisconnected population (Inbound.messageRefNumber header)
readUserDisconnectedNotification readInt header =
  do
    population <- readInt
    return . Inbound.UserDisconnectedMessage $ Inbound.UserDisconnected population (Inbound.messageRefNumber header)