-- A float between 0 and 1, inclusive.
type UnitInterval = Float
foo :: UnitInterval -> SomeResultPresumably
foo accuracy = ...
i.e. I think the essential problem in the SO question is solved, even though we have no additional type safety.
I think this is a poor framing for the rest of your comment, which is essentially a feminist critique of patriarchy and capitalism, and how patriarchy/capitalism is a harmful structure to men as well. Progressives are totally on board with this.