withPrefix t idx@Index{..} =
  idx{prefix = buildList (builder t `mappend` builder prefix)}
withPrefix t idx@Index{..} =
  idx{prefix = buildList (builder t `mappend` builder prefix)}
withPrefix t idx@Index{..} =
  idx{prefix = buildList (builder t `mappend` builder prefix)}