Skip to content
Snippets Groups Projects
Commit ec41aafb authored by Alice Brenon's avatar Alice Brenon
Browse files

Export subCorpus memberships in TEI text metadata for TXM

parent e18647b7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 1 deletion
lib/Text/TEI.hs
+ 2
− 1
View file @ ec41aafb
...@@ -95,7 +95,8 @@ text unitName txmText body = ...@@ -95,7 +95,8 @@ text unitName txmText body =
[ "uid" .= uid txmText [ "uid" .= uid txmText
, "book" .= (show . book $ get txmText) , "book" .= (show . book $ get txmText)
, "author" .= (unpack . formatList . authors $ 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 (.=) :: ArrowXml a => String -> String -> a b XmlTree
key .= value = attr key (txt value) key .= value = attr key (txt value)
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment