-- | A 'Builder' for an entity value, consisting of a list of
-- 'EntityValue'.
buildEntityValue :: [EntityValue] -> Builder
buildEntityValue = quote . mconcat . map val
  where
    val (EntityText t)  = fromText t
    val (EntityPERef r) = buildPERef r

-- | A builder for a 'PERef'.
buildEntityValue :: [EntityValue] -> Builder
buildEntityValue = quote . mconcat . map val
  where
    val (EntityText t)  = fromText t
    val (EntityPERef r) = buildPERef r

-- | A builder for a 'PERef'.
buildEntityValue = quote . mconcat . map val
  where
    val (EntityText t)  = fromText t
    val (EntityPERef r) = buildPERef r

-- | A builder for a 'PERef'.