Adding subCorpus to contrastive metadata

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" ]