[API] Code edit.

2044f66d · Alexandre Delanoë · 4d865aed · 2044f66d
Commit 2044f66d authored Jan 24, 2020 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

Node.hs src/Gargantext/Database/Types/Node.hs +4 -2

No files found.
--- a/src/Gargantext/Database/Types/Node.hs
+++ b/src/Gargantext/Database/Types/Node.hs
@@ -306,7 +306,7 @@ $(deriveJSON (unPrefix "hyperdataFolder_") ''HyperdataFolder)
 instance Hyperdata HyperdataFolder
 ------------------------------------------------------------------------

-data CodeType = JSON | Markdown
+data CodeType = JSON | Markdown | Haskell
  deriving (Generic)
 instance ToJSON CodeType
 instance FromJSON CodeType
@@ -319,7 +319,9 @@ data CorpusField = MarkdownField { _cf_text :: !Text }
                              , _cf_query :: !Text
                              , _cf_authors :: !Text
                              -- , _cf_resources :: ![Resource]
-                              } deriving (Generic)
+                              } 
+                  | HaskellField { _cf_haskell :: !Text }
+                  deriving (Generic)

 $(deriveJSON (unPrefix "_cf_") ''CorpusField)
 $(makeLenses ''CorpusField)