Commit 8ff51fb9 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] Markdown

parent 526227d0
...@@ -325,7 +325,7 @@ $(deriveJSON (unPrefix "_cf_") ''CorpusField) ...@@ -325,7 +325,7 @@ $(deriveJSON (unPrefix "_cf_") ''CorpusField)
$(makeLenses ''CorpusField) $(makeLenses ''CorpusField)
defaultCorpusField :: CorpusField defaultCorpusField :: CorpusField
defaultCorpusField = MarkdownField "#title" defaultCorpusField = MarkdownField "# title"
instance ToSchema CorpusField where instance ToSchema CorpusField where
declareNamedSchema proxy = declareNamedSchema proxy =
...@@ -365,7 +365,7 @@ corpusExample = "" -- TODO ...@@ -365,7 +365,7 @@ corpusExample = "" -- TODO
defaultCorpus :: HyperdataCorpus 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") , HyperdataField Markdown "Optional Text" (MarkdownField "# title\n## subtitle")
] ]
hyperdataCorpus :: HyperdataCorpus hyperdataCorpus :: HyperdataCorpus
......
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