From d20d8a1505f297ffb4d0866511ed49d46166374c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 6 Nov 2020 21:11:26 +0100
Subject: [PATCH] chore: fix arbitrary instance for storable markup

---
 test/Model/TypesSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs
index 917079d8d..1934aa03a 100644
--- a/test/Model/TypesSpec.hs
+++ b/test/Model/TypesSpec.hs
@@ -220,7 +220,7 @@ instance Arbitrary Html where
 instance Arbitrary StoredMarkup where
   arbitrary = oneof
     [ htmlToStoredMarkup <$> arbitrary
-    , (plaintextToStoredMarkup :: Text -> StoredMarkup) <$> arbitrary
+    , plaintextToStoredMarkup . getPrintableString <$> arbitrary
     ]
 
 instance Arbitrary OccurrenceSchedule where