Commit a8ce0a41 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[Graph][FacetsTable] fix for table view td's

parent ee6295cc
...@@ -296,14 +296,13 @@ pageCpt = R.staticComponent "G.C.FacetsTable.Page" cpt ...@@ -296,14 +296,13 @@ pageCpt = R.staticComponent "G.C.FacetsTable.Page" cpt
where where
row (DocumentsView {id,score,title,source,date,pairs,delete,category}) = row (DocumentsView {id,score,title,source,date,pairs,delete,category}) =
{ row: { row:
[ H.div {}
[ H.a { className, on: {click: markClick} } [] [ H.a { className, on: {click: markClick} } []
-- TODO show date: Year-Month-Day only -- TODO show date: Year-Month-Day only
, maybeStricken [ H.text date ] , maybeStricken [ H.text date ]
, maybeStricken [ H.text source ] , maybeStricken [ H.text source ]
-- , maybeStricken $ intercalate [comma] (pairUrl <$> pairs) -- , maybeStricken $ intercalate [comma] (pairUrl <$> pairs)
, H.input { type: "checkbox", checked: isChecked id, on: { click: toggleClick } } , H.input { type: "checkbox", checked: isChecked id, on: { click: toggleClick } }
] ] ]
, delete: true } , delete: true }
where where
markClick _ = markCategory session nodeId category [id] markClick _ = markCategory session nodeId category [id]
......
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