From 73015dea884e5464f54b4cbba127c467c6bdd245 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Wed, 21 Jun 2023 22:14:20 +0200
Subject: [PATCH] Fix bug in MultiText decoding
---
lib/GEODE/Metadata/Contrastive.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/lib/GEODE/Metadata/Contrastive.hs b/lib/GEODE/Metadata/Contrastive.hs
index f6149ce..4d95d96 100644
--- a/lib/GEODE/Metadata/Contrastive.hs
+++ b/lib/GEODE/Metadata/Contrastive.hs
@@ -27,6 +27,7 @@ instance FromField MultiText where
pure (firstChar,middle,lastChar)
checkAndSplit t =
case popBoundaries t of
+ Just (':',"",':') -> pure $ MultiText []
Just (':',fields,':') -> pure.MultiText $ splitOn ":" fields
_ -> mempty
--
GitLab