
Thanks you all for these rapid answers ----- Le 30 Nov 22, à 16:21, Henning Thielemann lemming@henning-thielemann.de a écrit :
On Wed, 30 Nov 2022, PICCA Frederic-Emmanuel wrote:
Hello, I have a type like this
data InputType = CristalK6C | MarsFlyscan | MarsSbs | SixsFlyMedH | SixsFlyMedV | SixsFlyMedVEiger | SixsFlyMedVS70 | SixsFlyScanUhv | SixsFlyScanUhv2 | SixsFlyScanUhvTest | SixsFlyScanUhvUfxc | SixsSbsFixedDetector | SixsSbsMedH | SixsSbsMedV | SixsSbsMedVFixDetector deriving (Eq, Show)
I want to create a list of each values in order to create meaningfull error message for the user and simplify my Arbitrary instances.
deriving (Enum, Bounded)
then use [minBound .. maxBound]