diff --git a/lib/GEODE/Metadata/Contrastive.hs b/lib/GEODE/Metadata/Contrastive.hs
index 4d95d964434995926245e7d83ce94113851d707f..69d9c48fe23701bb84d55dd60662d1141d3f3c74 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" ]