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

[FIX] commenting unfinished features

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