Commit a66a3869 authored by Fabien Maniere's avatar Fabien Maniere

open docs links in new tab

parent 9b577636
......@@ -604,7 +604,7 @@ tableRowCpt = here.component "tableRow" cpt where
, session } _ = do
mCurrentDocId' <- T.useLive T.unequal mCurrentDocId
{ goToURL } <- useLinkHandler
{ goToURLInNewTab } <- useLinkHandler
let cat :: Category
cat = fromMaybe category (localCategories ^. at _id)
......@@ -658,7 +658,7 @@ tableRowCpt = here.component "tableRow" cpt where
_ <- updateNodeContextCategory session r._id (fromMaybe 0 mCorpusId) $ cat2score categoryMarked
pure unit
T.write_ categoryMarked categoryS
goToURL $ url frontends $ corpusDocument r._id }
goToURLInNewTab $ url frontends $ corpusDocument r._id }
, className: "btn btn-link text-primary"
, type: "Button"
}
......
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