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