-- | Build a choice expression.
buildChoice :: (a -> Builder) -> [a] -> Builder
buildChoice = buildList " | "
buildChoice :: (a -> Builder) -> [a] -> Builder
buildChoice = buildList " | "
buildChoice = buildList " | "