fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: fix arbitrary instance for storable markup

Browse Source
This commit is contained in:
Gregor Kleen 2020-11-06 21:11:26 +01:00
parent e25e8a2f4c
commit d20d8a1505
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Model/TypesSpec.hs
View File

@ -220,7 +220,7 @@ instance Arbitrary Html where
instance Arbitrary StoredMarkup where instance Arbitrary StoredMarkup where
arbitrary = oneof arbitrary = oneof
[ htmlToStoredMarkup <$> arbitrary [ htmlToStoredMarkup <$> arbitrary
, (plaintextToStoredMarkup :: Text -> StoredMarkup) <$> arbitrary , plaintextToStoredMarkup . getPrintableString <$> arbitrary
] ]
instance Arbitrary OccurrenceSchedule where instance Arbitrary OccurrenceSchedule where