readUserLogonNotification :: IO Int -> Inbound.Header -> IO Inbound.InboundMessage
readUserLogonNotification readInt header =
  do
    let userWhoLoggedOn = Inbound.messageRefNumber header
    population <- readInt
    return . Inbound.UserLogonMessage $ Inbound.UserLogonNotification userWhoLoggedOn population
readUserLogonNotification :: IO Int -> Inbound.Header -> IO Inbound.InboundMessage
readUserLogonNotification readInt header =
  do
    let userWhoLoggedOn = Inbound.messageRefNumber header
    population <- readInt
    return . Inbound.UserLogonMessage $ Inbound.UserLogonNotification userWhoLoggedOn population
readUserLogonNotification readInt header =
  do
    let userWhoLoggedOn = Inbound.messageRefNumber header
    population <- readInt
    return . Inbound.UserLogonMessage $ Inbound.UserLogonNotification userWhoLoggedOn population