[table] implement querystring params
[gargantext.git] / src / Gargantext / Database / Action / Node.hs
index bf9472ad0c808a322062c3bdcda0f7fc1f2897ad..4a31cd74751c5dbc354401e8dfb77b8a6c3f5252 100644 (file)
@@ -23,15 +23,14 @@ module Gargantext.Database.Action.Node
 import Gargantext.Core.Types (Name)
 import Gargantext.Database.Admin.Types.Hyperdata
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Database.Query.Table.Node
 import Gargantext.Database.Query.Table.Node.Error
 import Gargantext.Database.Query.Table.Node.UpdateOpaleye (updateHyperdata)
 import Gargantext.Prelude
-import Gargantext.Core.Crypto.Hash (hash)
+import Gargantext.Prelude.Crypto.Hash (hash)
 import Gargantext.Database.Prelude
 import Control.Lens (view)
-import Gargantext.Config (GargConfig(..))
+import Gargantext.Prelude.Config (GargConfig(..))
 
 ------------------------------------------------------------------------
 -- | TODO mk all others nodes
@@ -92,13 +91,13 @@ mkNodeWithParent_ConfigureHyperdata' nt (Just i) uId name = do
   case maybeNodeId of
     []  -> nodeError (DoesNotExist i)
     [n] -> do
-      config <- view hasConfig
+      cfg <- view config
       u <- case nt of
-            NodeFrameWrite -> pure $ _gc_frame_write_url config
-            NodeFrameCalc  -> pure $ _gc_frame_calc_url  config
+            NodeFrameWrite -> pure $ _gc_frame_write_url cfg
+            NodeFrameCalc  -> pure $ _gc_frame_calc_url  cfg
             _              -> nodeError NeedsConfiguration
       let
-        s = _gc_secretkey config
+        s = _gc_secretkey cfg
         hd = HyperdataFrame u (hash $ s <> (cs $ show n))
       _ <- updateHyperdata n hd
       pure [n]