Skip to content

P
purescript-gargantext
Verified Commit b1f1c84a authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[refactoring] use better query strings for Ends.purs 

Also, some Routes.purs refactoring
parent baaea6e3
Pipeline #4083 canceled with stage
    Expand all Hide whitespace changes
    Inline Side-by-side
    Showing with 120 additions and 91 deletions
    src/Gargantext/Ends.purs
    View file @ b1f1c84a
    This diff is collapsed.
    src/Gargantext/Routes.purs
    View file @ b1f1c84a
    ......@@ -35,34 +35,8 @@ data AppRoute
    | UserPage SessionId Int
    | ForgotPassword (M.Map String String)
    derive instance Eq AppRoute
    data SessionRoute
    = Tab TabType (Maybe Id)
    | Children NodeType Offset Limit (Maybe OrderBy) (Maybe Id)
    | GetNgrams NgramsGetOpts (Maybe Id)
    | GetNgramsTableAll NgramsGetTableAllOpts (Maybe Id)
    | GetNgramsTableVersion { listId :: ListId, tabType :: TabType } (Maybe Id)
    | PutNgrams TabType (Maybe ListId) (Maybe TermList) (Maybe Id)
    | PostNgramsChartsAsync (Maybe Id)
    -- ^ This name is not good. In particular this URL is used both in PUT and POST.
    | RecomputeNgrams (TabSubType CTabNgramType) Id ListId
    | RecomputeListChart ChartType CTabNgramType Id ListId
    | NodeAPI NodeType (Maybe Id) String
    | TreeFirstLevel (Maybe Id) String
    | GraphAPI Id String
    | ListsRoute ListId
    | ListDocument (Maybe ListId) (Maybe DocId)
    | Search SearchOpts (Maybe Id)
    | CorpusMetrics CorpusMetricOpts (Maybe Id)
    | CorpusMetricsHash { listId :: ListId, tabType :: TabType } (Maybe Id)
    | Chart ChartOpts (Maybe Id)
    | ChartHash { chartType :: ChartType, listId :: Maybe ListId, tabType :: TabType } (Maybe Id)
    -- | AnnuaireContact AnnuaireId DocId
    | PhyloAPI Id
    | Members
    instance Show AppRoute where
    show Home = "Home"
    show Login = "Login"
    ......@@ -140,6 +114,32 @@ nodeTypeAppRoute GT.NodeFrameVisio s i = Just $ RouteFrameVisio s i
    nodeTypeAppRoute _ _ _ = Nothing
    data SessionRoute
    = Tab TabType (Maybe Id)
    | Children NodeType Offset Limit (Maybe OrderBy) (Maybe Id)
    | GetNgrams NgramsGetOpts (Maybe Id)
    | GetNgramsTableAll NgramsGetTableAllOpts (Maybe Id)
    | GetNgramsTableVersion { listId :: ListId, tabType :: TabType } (Maybe Id)
    | PutNgrams TabType (Maybe ListId) (Maybe TermList) (Maybe Id)
    | PostNgramsChartsAsync (Maybe Id)
    -- ^ This name is not good. In particular this URL is used both in PUT and POST.
    | RecomputeNgrams (TabSubType CTabNgramType) Id ListId
    | RecomputeListChart ChartType CTabNgramType Id ListId
    | NodeAPI NodeType (Maybe Id) String
    | TreeFirstLevel (Maybe Id) String
    | GraphAPI Id String
    | ListsRoute ListId
    | ListDocument (Maybe ListId) (Maybe DocId)
    | Search SearchOpts (Maybe Id)
    | CorpusMetrics CorpusMetricOpts (Maybe Id)
    | CorpusMetricsHash { listId :: ListId, tabType :: TabType } (Maybe Id)
    | Chart ChartOpts (Maybe Id)
    | ChartHash { chartType :: ChartType, listId :: Maybe ListId, tabType :: TabType } (Maybe Id)
    -- | AnnuaireContact AnnuaireId DocId
    | PhyloAPI Id
    | Members
    ------------------------------------------------------
    type Tile =
    ......
    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