instanceStateConv :: (MonadThrow m, Applicative m)
    => Text -> XmlElement -> m InstanceState
instanceStateConv label = element label conv
  where
    conv e = codeToState
        <$> e .< "code"
        <*> e .< "name"
instanceStateConv :: (MonadThrow m, Applicative m)
    => Text -> XmlElement -> m InstanceState
instanceStateConv label = element label conv
  where
    conv e = codeToState
        <$> e .< "code"
        <*> e .< "name"
instanceStateConv label = element label conv
  where
    conv e = codeToState
        <$> e .< "code"
        <*> e .< "name"