From 7d3b52764016dbb2ee679b22c7faced7a8075fd1 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 30 Nov 2022 16:12:49 +0100 Subject: [PATCH] fix build --- test/Utils/TypesSpec.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/Utils/TypesSpec.hs b/test/Utils/TypesSpec.hs index f5dfafb0f..80bd07ac2 100644 --- a/test/Utils/TypesSpec.hs +++ b/test/Utils/TypesSpec.hs @@ -14,6 +14,10 @@ instance Arbitrary SloppyBool where arbitrary = SloppyBool <$> arbitrary shrink (SloppyBool x) = SloppyBool <$> shrink x +instance Arbitrary AvsInternalPersonalNo where + arbitrary = canonical . AvsInternalPersonalNo <$> arbitrary + shrink (AvsInternalPersonalNo x) = canonical . AvsInternalPersonalNo <$> shrink x + instance Arbitrary AvsPersonId where arbitrary = AvsPersonId <$> arbitrary shrink (AvsPersonId x) = AvsPersonId <$> shrink x