[FLOW] NgramsT is a Functor
[gargantext.git] / src / Gargantext / Database / Node / Contact.hs
index 7cece9d3822caa08dc6111a88d95affdbbff0e7f..a222bd40246daacf20f1d07ca49040fb96b710ac 100644 (file)
@@ -28,9 +28,8 @@ import Data.Time (UTCTime)
 import Database.PostgreSQL.Simple.FromField (FromField, fromField)
 import GHC.Generics (Generic)
 import Gargantext.Core.Utils.Prefix (unPrefix)
-import Gargantext.Core.Types.Main (AnnuaireId, UserId)
-import Gargantext.Database.Schema.Node (NodeWrite', Name, node)
-import Gargantext.Database.Types.Node (Node,Hyperdata,NodeType(..))
+import Gargantext.Database.Schema.Node (NodeWrite, Name, node)
+import Gargantext.Database.Types.Node (Node,Hyperdata,NodeType(..), UserId, AnnuaireId)
 import Gargantext.Database.Utils (fromField')
 import Gargantext.Prelude
 import Opaleye (QueryRunnerColumnDefault, queryRunnerColumnDefault, PGJsonb, fieldQueryRunnerColumn)
@@ -97,7 +96,7 @@ data ContactTouch =
 
 
 nodeContactW :: Maybe Name -> Maybe HyperdataContact
-             -> AnnuaireId -> UserId -> NodeWrite'
+             -> AnnuaireId -> UserId -> NodeWrite
 nodeContactW maybeName maybeContact aId = 
   node NodeContact name contact (Just aId)
     where