Skip to content

H
haskell-gargantext
Commit 714462cc authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[CONTACT] entry/departure time

parent 5e5d8c35
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 0 deletions
src/Gargantext/Database/Node/Contact.hs
View file @ 714462cc
...@@ -23,6 +23,7 @@ module Gargantext.Database.Node.Contact (NodeContact,HyperdataContact, ContactWh ...@@ -23,6 +23,7 @@ module Gargantext.Database.Node.Contact (NodeContact,HyperdataContact, ContactWh
import GHC.Generics (Generic) import GHC.Generics (Generic)
import Data.Aeson.TH (deriveJSON) import Data.Aeson.TH (deriveJSON)
import Data.Text (Text) import Data.Text (Text)
import Data.Time (UTCTime)
import qualified Data.Text as DT import qualified Data.Text as DT
import Control.Lens (makeLenses) import Control.Lens (makeLenses)
import Database.PostgreSQL.Simple import Database.PostgreSQL.Simple
...@@ -71,6 +72,8 @@ data ContactWhere = ...@@ -71,6 +72,8 @@ data ContactWhere =
, _cw_country :: Maybe Text , _cw_country :: Maybe Text
, _cw_city :: Maybe Text , _cw_city :: Maybe Text
, _cw_touch :: Maybe ContactTouch , _cw_touch :: Maybe ContactTouch
, _cw_start :: Maybe UTCTime
, _cw_end :: Maybe UTCTime
} deriving (Eq, Show, Generic) } deriving (Eq, Show, Generic)
data ContactTouch = data ContactTouch =
......
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