u2w-merge #192
@ -47,6 +47,9 @@ instance (Arbitrary fileid, Arbitrary userid, Typeable fileid, Typeable userid,
|
||||
instance Arbitrary WorkflowPayloadTextPreset where
|
||||
arbitrary = genericArbitrary
|
||||
shrink = genericShrink
|
||||
instance Arbitrary WorkflowPayloadTextType where
|
||||
arbitrary = genericArbitrary
|
||||
shrink = genericShrink
|
||||
instance Arbitrary (WorkflowPayloadField fileid userid Text) where
|
||||
arbitrary = WorkflowPayloadFieldText
|
||||
<$> scale (`div` 2) arbitrary
|
||||
|
||||
Reference in New Issue
Block a user