resEnum      :: Enum a => ArgRes a
resEnum p    = readVarInt p >>= return.toEnum.fromIntegral
resEnum      :: Enum a => ArgRes a
resEnum p    = readVarInt p >>= return.toEnum.fromIntegral
resEnum p    = readVarInt p >>= return.toEnum.fromIntegral