dataRangeRestriction :: CharParser st DataRange
dataRangeRestriction = do
  e <- datatypeUri
  option (DataType e []) $ fmap (DataType e) $ bracketsP
    $ sepByComma facetValuePair
dataRangeRestriction :: CharParser st DataRange
dataRangeRestriction = do
  e <- datatypeUri
  option (DataType e []) $ fmap (DataType e) $ bracketsP
    $ sepByComma facetValuePair
dataRangeRestriction = do
  e <- datatypeUri
  option (DataType e []) $ fmap (DataType e) $ bracketsP
    $ sepByComma facetValuePair