Skip to content

haskell-gargantext
haskell-gargantext
Commit 8ff51fb9 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Markdown

parent 526227d0
Pipeline #707 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    src/Gargantext/Database/Types/Node.hs
    View file @ 8ff51fb9
    ...@@ -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