Commit e9520cb1 authored by Fabien Manière's avatar Fabien Manière

cleaning

parent b05b8100
...@@ -101,8 +101,6 @@ annotatedFieldInnerCpt = here.component "annotatedFieldInner" cpt where ...@@ -101,8 +101,6 @@ annotatedFieldInnerCpt = here.component "annotatedFieldInner" cpt where
, onSelect: onAnnotationSelect { menuRef, ngrams, redrawMenu, setTermList } , onSelect: onAnnotationSelect { menuRef, ngrams, redrawMenu, setTermList }
, text , text
} }
-- htmlId = "annotated-field-runs-" <> "0"
-- | Render -- | Render
-- | -- |
...@@ -120,7 +118,6 @@ annotatedFieldInnerCpt = here.component "annotatedFieldInner" cpt where ...@@ -120,7 +118,6 @@ annotatedFieldInnerCpt = here.component "annotatedFieldInner" cpt where
H.div H.div
{ className: "annotated-field-runs" { className: "annotated-field-runs"
, aria: { expanded: false } , aria: { expanded: false }
-- , id: htmlId
} }
((\p -> annotateRun p) <$> wrap <$> compile cache ngrams fieldText) ((\p -> annotateRun p) <$> wrap <$> compile cache ngrams fieldText)
...@@ -138,15 +135,6 @@ annotatedFieldInnerCpt = here.component "annotatedFieldInner" cpt where ...@@ -138,15 +135,6 @@ annotatedFieldInnerCpt = here.component "annotatedFieldInner" cpt where
, onSelect: onAnnotationSelect { menuRef, ngrams, redrawMenu, setTermList } , onSelect: onAnnotationSelect { menuRef, ngrams, redrawMenu, setTermList }
} }
] ]
-- ,
-- H.a { role: "button"
-- , className: "collapsed btn-seemore text-primary"
-- , data: { toggle: "collapse" }
-- , aria: { expanded: false, controls: htmlId }
-- , href: "#" <> htmlId
-- }
-- [ H.text "" ]
] ]
----------------------------------------------------------- -----------------------------------------------------------
......
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