Skip to content

haskell-gargantext
haskell-gargantext
Commit 4ab275a3 authored by Yoelis Acourt's avatar Yoelis Acourt
Browse files
Options

feat: add from_country to db

parent 5bf4bec8
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
src/Gargantext/Database/Query/Table/Node/Document/Insert.hs
View file @ 4ab275a3
...@@ -105,6 +105,7 @@ instance InsertDb HyperdataDocument ...@@ -105,6 +105,7 @@ instance InsertDb HyperdataDocument
, toField p , toField p
, toField $ maybe "No Title" (DT.take 255) (_hd_title h) , toField $ maybe "No Title" (DT.take 255) (_hd_title h)
, toField $ _hd_publication_date h -- TODO USE UTCTime , toField $ _hd_publication_date h -- TODO USE UTCTime
, toField $ _hd_from_country h
-- , (toField . toJSON) (addUniqId h) -- , (toField . toJSON) (addUniqId h)
] ]
......
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