Commit c38faea4 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[READING] Cosmetics

parent da6e6797
...@@ -12,8 +12,7 @@ import Gargantext.Sessions (Session, get, post) ...@@ -12,8 +12,7 @@ import Gargantext.Sessions (Session, get, post)
import Gargantext.Types as GT import Gargantext.Types as GT
type GraphAsyncUpdateParams = type GraphAsyncUpdateParams =
( ( graphId :: Int
graphId :: Int
, listId :: Int , listId :: Int
, nodes :: Array (Record SigmaxT.Node) , nodes :: Array (Record SigmaxT.Node)
, session :: Session , session :: Session
...@@ -34,8 +33,7 @@ graphAsyncUpdate { graphId, listId, nodes, session, termList, version } = do ...@@ -34,8 +33,7 @@ graphAsyncUpdate { graphId, listId, nodes, session, termList, version } = do
} }
type GraphAsyncRecomputeParams = type GraphAsyncRecomputeParams =
( ( graphId :: Int
graphId :: Int
, session :: Session , session :: Session
) )
...@@ -48,8 +46,7 @@ graphAsyncRecompute { graphId, session } = do ...@@ -48,8 +46,7 @@ graphAsyncRecompute { graphId, session } = do
q = {} q = {}
type QueryProgressParams = type QueryProgressParams =
( ( graphId :: Int
graphId :: Int
, session :: Session , session :: Session
, taskId :: String , taskId :: String
) )
...@@ -59,14 +56,12 @@ queryProgress { graphId, session, taskId } = do ...@@ -59,14 +56,12 @@ queryProgress { graphId, session, taskId } = do
get session $ GR.GraphAPI graphId $ "async/" <> taskId <> "/poll" get session $ GR.GraphAPI graphId $ "async/" <> taskId <> "/poll"
type GraphVersions = type GraphVersions =
( ( gv_graph :: Maybe Int
gv_graph :: Maybe Int
, gv_repo :: Int , gv_repo :: Int
) )
type GraphVersionsParams = type GraphVersionsParams =
( ( graphId :: Int
graphId :: Int
, session :: Session , session :: Session
) )
...@@ -74,8 +69,7 @@ graphVersions :: Record GraphVersionsParams -> Aff (Record GraphVersions) ...@@ -74,8 +69,7 @@ graphVersions :: Record GraphVersionsParams -> Aff (Record GraphVersions)
graphVersions { graphId, session } = get session $ GR.GraphAPI graphId $ "versions" graphVersions { graphId, session } = get session $ GR.GraphAPI graphId $ "versions"
type UpdateGraphVersionsParams = type UpdateGraphVersionsParams =
( ( graphId :: Int
graphId :: Int
, session :: Session , session :: Session
) )
...@@ -83,8 +77,7 @@ updateGraphVersions :: Record UpdateGraphVersionsParams -> Aff GET.GraphData ...@@ -83,8 +77,7 @@ updateGraphVersions :: Record UpdateGraphVersionsParams -> Aff GET.GraphData
updateGraphVersions { graphId, session } = post session (GR.GraphAPI graphId $ "versions") {} updateGraphVersions { graphId, session } = post session (GR.GraphAPI graphId $ "versions") {}
type CloneGraphParams = type CloneGraphParams =
( ( hyperdataGraph :: GET.HyperdataGraph
hyperdataGraph :: GET.HyperdataGraph
, id :: Int , id :: Int
, session :: Session , session :: Session
) )
......
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