Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit 017da1e4 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[ngrams] no listId in table

parent 2d2b4cba
Pipeline #4093 failed with stages
          in 11 minutes and 56 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 2 additions and 4 deletions
          src/Gargantext/API/Table.hs
          View file @ 017da1e4
          ...@@ -58,7 +58,6 @@ import Gargantext.Prelude ...@@ -58,7 +58,6 @@ import Gargantext.Prelude
          type TableApi = Summary "Table API" type TableApi = Summary "Table API"
          :> QueryParam "tabType" TabType :> QueryParam "tabType" TabType
          :> QueryParam "list" ListId
          :> QueryParam "limit" Limit :> QueryParam "limit" Limit
          :> QueryParam "offset" Offset :> QueryParam "offset" Offset
          :> QueryParam "orderBy" OrderBy :> QueryParam "orderBy" OrderBy
          ...@@ -105,14 +104,13 @@ tableApi id' = getTableApi id' ...@@ -105,14 +104,13 @@ tableApi id' = getTableApi id'
          getTableApi :: HasNodeError err getTableApi :: HasNodeError err
          => NodeId => NodeId
          -> Maybe TabType -> Maybe TabType
          -> Maybe ListId
          -> Maybe Limit -> Maybe Limit
          -> Maybe Offset -> Maybe Offset
          -> Maybe OrderBy -> Maybe OrderBy
          -> Maybe Text -> Maybe Text
          -> Maybe Text -> Maybe Text
          -> Cmd err (HashedResponse FacetTableResult) -> Cmd err (HashedResponse FacetTableResult)
          getTableApi cId tabType _mListId mLimit mOffset mOrderBy mQuery mYear = do getTableApi cId tabType mLimit mOffset mOrderBy mQuery mYear = do
          -- printDebug "[getTableApi] mQuery" mQuery -- printDebug "[getTableApi] mQuery" mQuery
          -- printDebug "[getTableApi] mYear" mYear -- printDebug "[getTableApi] mYear" mYear
          t <- getTable cId tabType mOffset mLimit mOrderBy mQuery mYear t <- getTable cId tabType mOffset mLimit mOrderBy mQuery mYear
          ...@@ -129,7 +127,7 @@ postTableApi cId (TableQuery o l order ft q) = case ft of ...@@ -129,7 +127,7 @@ postTableApi cId (TableQuery o l order ft q) = case ft of
          getTableHashApi :: HasNodeError err getTableHashApi :: HasNodeError err
          => NodeId -> Maybe TabType -> Cmd err Text => NodeId -> Maybe TabType -> Cmd err Text
          getTableHashApi cId tabType = do getTableHashApi cId tabType = do
          HashedResponse { hash = h } <- getTableApi cId tabType Nothing Nothing Nothing Nothing Nothing Nothing HashedResponse { hash = h } <- getTableApi cId tabType Nothing Nothing Nothing Nothing Nothing
          pure h pure h
          searchInCorpus' :: CorpusId searchInCorpus' :: CorpusId
          ......
          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