Commit cdf79c7d authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[list] some types fixes

parent bc3b4ada
...@@ -40,7 +40,7 @@ chartUpdateButton p = R.createElement chartUpdateButtonCpt p [] ...@@ -40,7 +40,7 @@ chartUpdateButton p = R.createElement chartUpdateButtonCpt p []
chartUpdateButtonCpt :: R.Component ChartUpdateButtonProps chartUpdateButtonCpt :: R.Component ChartUpdateButtonProps
chartUpdateButtonCpt = R.hooksComponent "G.C.N.C.C.U.chartUpdateButton" cpt chartUpdateButtonCpt = R.hooksComponent "G.C.N.C.C.U.chartUpdateButton" cpt
where where
cpt { path: { chartType, corpusId, listId, tabType }, reload: (_ /\ setReload), session } _ = do cpt { chartType, path: { corpusId, listId, tabType }, reload: (_ /\ setReload), session } _ = do
R.useEffect' $ do R.useEffect' $ do
log2 "[chartUpdateButton] tabType" tabType log2 "[chartUpdateButton] tabType" tabType
......
...@@ -9,7 +9,7 @@ import Data.Generic.Rep (class Generic) ...@@ -9,7 +9,7 @@ import Data.Generic.Rep (class Generic)
import Data.Generic.Rep.Eq (genericEq) import Data.Generic.Rep.Eq (genericEq)
import Data.Maybe (Maybe(..), maybe, fromMaybe) import Data.Maybe (Maybe(..), maybe, fromMaybe)
import Gargantext.Routes as R import Gargantext.Routes as R
import Gargantext.Types (ApiVersion, Limit, NodePath, NodeType(..), Offset, TabType(..), TermSize(..), nodePath, nodeTypePath, showTabType') import Gargantext.Types (ApiVersion, ChartType(..), Limit, NodePath, NodeType(..), Offset, TabType(..), TermSize(..), nodePath, nodeTypePath, showTabType')
import Prelude (class Eq, class Show, identity, show, ($), (<>), bind, pure, (<<<), (==)) import Prelude (class Eq, class Show, identity, show, ($), (<>), bind, pure, (<<<), (==))
-- | A means of generating a url to visit, a destination -- | A means of generating a url to visit, a destination
......
msession path reload = H.div {} []odule Gargantext.Types where module Gargantext.Types where
import Prelude import Prelude
......
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