Commit 4d865aed authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] Corpus Hyperdata type.

parent 8ff51fb9
......@@ -318,7 +318,7 @@ data CorpusField = MarkdownField { _cf_text :: !Text }
, _cf_desc :: !Text
, _cf_query :: !Text
, _cf_authors :: !Text
, _cf_resources :: ![Resource]
-- , _cf_resources :: ![Resource]
} deriving (Generic)
$(deriveJSON (unPrefix "_cf_") ''CorpusField)
......@@ -364,7 +364,7 @@ corpusExample :: ByteString
corpusExample = "" -- TODO
defaultCorpus :: HyperdataCorpus
defaultCorpus = HyperdataCorpus [ HyperdataField JSON "Mandatory fields" (JsonField "Title" "Descr" "Bool query" "Authors" [])
defaultCorpus = HyperdataCorpus [ HyperdataField JSON "Mandatory fields" (JsonField "Title" "Descr" "Bool query" "Authors")
, HyperdataField Markdown "Optional Text" (MarkdownField "# title\n## subtitle")
]
......
Markdown is supported
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