short :: Char -> OptBuilding arg a
short f = OptBuilding (\b -> b {obShort = f : obShort b})
short :: Char -> OptBuilding arg a
short f = OptBuilding (\b -> b {obShort = f : obShort b})
short f = OptBuilding (\b -> b {obShort = f : obShort b})