From caf789dc8bfe3c08bca3fa28485dd09e9143d4c8 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Tue, 27 Jun 2023 10:01:10 +0200
Subject: [PATCH] Adding subCorpus to contrastive metadata
---
lib/GEODE/Metadata/Contrastive.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/GEODE/Metadata/Contrastive.hs b/lib/GEODE/Metadata/Contrastive.hs
index 4d95d96..69d9c48 100644
--- a/lib/GEODE/Metadata/Contrastive.hs
+++ b/lib/GEODE/Metadata/Contrastive.hs
@@ -36,10 +36,11 @@ instance ToField MultiText where
data Contrastive = Contrastive
{ authors :: MultiText
- , domains :: MultiText } deriving (Generic, Show)
+ , domains :: MultiText
+ , subCorpus :: MultiText } deriving (Generic, Show)
instance FromNamedRecord Contrastive
instance ToNamedRecord Contrastive
instance HasDefaultHeader Contrastive where
- defaultFields = DefaultFields [ "authors", "domains" ]
+ defaultFields = DefaultFields [ "authors", "domains", "subCorpus" ]
--
GitLab