Commit 270a774a authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] url to get ngrams of document.

parent 195e2cc3
......@@ -313,7 +313,7 @@ renderPage loaderDispatch { totalRecords, dispatch, listId
, target "_blank"
] [ text r.title ]
else
a [ href (toUrl Front Url_Document (Just r._id))
a [ href (toLink $ R.Document listId r._id)
, target "_blank" ] [ text r.title ]
, if (toDelete $ DocumentsView r) then
div [style {textDecoration : "line-through"}] [ text r.source]
......
......@@ -127,7 +127,7 @@ showTabType' (TabPairing t) = show t
tabTypeNgramsGet :: TabType -> UrlPath
tabTypeNgramsGet (TabCorpus t) = "listGet?ngramsType=" <> show t
tabTypeNgramsGet (TabDocument t) = "listGet?ngramsType=" <> show t
tabTypeNgramsGet (TabDocument t) = "ngrams?ngramsType=" <> show t
tabTypeNgramsGet (TabPairing t) = "listGet?ngramsType=" <> show t -- TODO
tabTypeNgramsPut :: TabType -> UrlPath
......
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