Commit 3f61cc3a authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] commenting unfinished features

parent e30994ec
...@@ -51,7 +51,9 @@ type Props = ...@@ -51,7 +51,9 @@ type Props =
) )
-- | Tracks the ids of documents to delete and that have been deleted -- | Tracks the ids of documents to delete and that have been deleted
type Deletions = { pending :: Set Int, deleted :: Set Int } type Deletions = { pending :: Set Int
, deleted :: Set Int
}
initialDeletions :: Deletions initialDeletions :: Deletions
initialDeletions = { pending: mempty, deleted: mempty } initialDeletions = { pending: mempty, deleted: mempty }
......
...@@ -319,8 +319,8 @@ loadedNgramsTableCpt = R.hooksComponentWithModule thisModule "loadedNgramsTable" ...@@ -319,8 +319,8 @@ loadedNgramsTableCpt = R.hooksComponentWithModule thisModule "loadedNgramsTable"
, versioned: Versioned { data: initTable } , versioned: Versioned { data: initTable }
, withAutoUpdate } _ = do , withAutoUpdate } _ = do
let syncResetBtns = [ let syncResetBtns = [ syncResetButtons
syncResetButtons { afterSync: chartsAfterSync { afterSync: chartsAfterSync
, ngramsLocalPatch , ngramsLocalPatch
, performAction: performAction <<< CoreAction , performAction: performAction <<< CoreAction
} }
...@@ -328,8 +328,8 @@ loadedNgramsTableCpt = R.hooksComponentWithModule thisModule "loadedNgramsTable" ...@@ -328,8 +328,8 @@ loadedNgramsTableCpt = R.hooksComponentWithModule thisModule "loadedNgramsTable"
pure $ R.fragment $ pure $ R.fragment $
autoUpdate <> syncResetBtns <> [ autoUpdate <> syncResetBtns <> [
H.h4 {style: {textAlign : "center"}} [ H.h4 {style: {textAlign : "center"}}
H.span {className: "glyphicon glyphicon-hand-down"} [] [ H.span {className: "glyphicon glyphicon-hand-down"} []
, H.text "Extracted Terms" , H.text "Extracted Terms"
] ]
, search , search
...@@ -648,9 +648,7 @@ mainNgramsTablePaintCpt = R.hooksComponentWithModule thisModule "mainNgramsTable ...@@ -648,9 +648,7 @@ mainNgramsTablePaintCpt = R.hooksComponentWithModule thisModule "mainNgramsTable
, withAutoUpdate } _ = do , withAutoUpdate } _ = do
pathS <- R.useState' path pathS <- R.useState' path
state <- R.useState' $ initialState versioned state <- R.useState' $ initialState versioned
pure $ loadedNgramsTable { afterSync
pure $ loadedNgramsTable {
afterSync
, appReload , appReload
, asyncTasksRef , asyncTasksRef
, path: pathS , path: pathS
...@@ -662,8 +660,8 @@ mainNgramsTablePaintCpt = R.hooksComponentWithModule thisModule "mainNgramsTable ...@@ -662,8 +660,8 @@ mainNgramsTablePaintCpt = R.hooksComponentWithModule thisModule "mainNgramsTable
, withAutoUpdate , withAutoUpdate
} }
type MainNgramsTablePaintNoCacheProps = ( type MainNgramsTablePaintNoCacheProps =
pathS :: R.State PageParams ( pathS :: R.State PageParams
, versioned :: VersionedNgramsTable , versioned :: VersionedNgramsTable
| CommonProps | CommonProps
) )
......
...@@ -46,7 +46,7 @@ searchInputCpt = R.hooksComponentWithModule thisModule "searchInput" cpt ...@@ -46,7 +46,7 @@ searchInputCpt = R.hooksComponentWithModule thisModule "searchInput" cpt
cpt { onSearch, searchQuery } _ = cpt { onSearch, searchQuery } _ =
pure $ H.div { className: "input-group" } pure $ H.div { className: "input-group" }
[ searchButton [ searchButton
, fieldInput searchQuery , fieldInput
] ]
where where
searchButton = searchButton =
......
...@@ -153,8 +153,15 @@ ngramsViewCpt = R.hooksComponentWithModule thisModule "ngramsView" cpt ...@@ -153,8 +153,15 @@ ngramsViewCpt = R.hooksComponentWithModule thisModule "ngramsView" cpt
} }
charts params CTabTerms (chartType /\ setChartType) _ = [ charts params CTabTerms (chartType /\ setChartType) _ = [
H.div { className: "row chart-type-selector" } [ H.div {className: "row"}
H.div { className: "col-md-3" } [ [ H.div {className: "col-md-offset-5 col-md-6 content"}
[ H.img { src: "images/Gargantextuel-212x300.jpg"
, id: "funnyimg"
}
]
]
{-
R2.select { className: "form-control" R2.select { className: "form-control"
, defaultValue: show chartType , defaultValue: show chartType
, on: { change: \e -> setChartType , on: { change: \e -> setChartType
...@@ -173,6 +180,7 @@ ngramsViewCpt = R.hooksComponentWithModule thisModule "ngramsView" cpt ...@@ -173,6 +180,7 @@ ngramsViewCpt = R.hooksComponentWithModule thisModule "ngramsView" cpt
] ]
] ]
, getChartFunction chartType $ { path: params, session } , getChartFunction chartType $ { path: params, session }
-}
] ]
charts params _ _ _ = [ chart params mode ] charts params _ _ _ = [ chart params mode ]
......
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