setter :: (arg -> a -> IO a) -> OptBuilding arg a
setter s = OptBuilding (\b -> b {obSetter = s})
setter :: (arg -> a -> IO a) -> OptBuilding arg a
setter s = OptBuilding (\b -> b {obSetter = s})
setter s = OptBuilding (\b -> b {obSetter = s})