From ec41aafb120cf4d4b97799d88b6cff35e2a4f6ad Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Mon, 26 Jun 2023 16:08:05 +0200
Subject: [PATCH] Export subCorpus memberships in TEI text metadata for TXM
---
lib/Text/TEI.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lib/Text/TEI.hs b/lib/Text/TEI.hs
index ba66a30..558a616 100644
--- a/lib/Text/TEI.hs
+++ b/lib/Text/TEI.hs
@@ -95,7 +95,8 @@ text unitName txmText body =
[ "uid" .= uid txmText
, "book" .= (show . book $ get txmText)
, "author" .= (unpack . formatList . authors $ get txmText)
- , "domains" .= (unpack . formatList . domains $ get txmText) ]
+ , "domains" .= (unpack . formatList . domains $ get txmText)
+ , "subCorpus" .= (unpack . formatList . subCorpus $ get txmText) ]
(.=) :: ArrowXml a => String -> String -> a b XmlTree
key .= value = attr key (txt value)
--
GitLab