sinkDimension :: (MonadThrow m, Applicative m)
    => XmlElement -> m Dimension
sinkDimension xml = Dimension <$> xml .< "Name" <*> xml .< "Value"
sinkDimension :: (MonadThrow m, Applicative m)
    => XmlElement -> m Dimension
sinkDimension xml = Dimension <$> xml .< "Name" <*> xml .< "Value"
sinkDimension xml = Dimension <$> xml .< "Name" <*> xml .< "Value"