artlef/dictfr
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Took wrong header for definition

Browse Source
This commit is contained in:
artlef 2018-06-02 18:59:34 +02:00
parent 01cc700706
commit f13975fdaa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ParseHtml.hs
View File

@ -47,7 +47,7 @@ getDef t n = renderFullDef (getFullDef t n)
getFullDef :: T.Text -> Int -> WordFullDef getFullDef :: T.Text -> Int -> WordFullDef
getFullDef t n = WordFullDef header defList getFullDef t n = WordFullDef header defList
where where
header = ((parseDefTags . differentDefTags) t !! (n-1)) header = ((parseDefTags . differentDefTags) t !! n)
defList = map (WordDefSentence . renderTags) [parseFullDefTags t] defList = map (WordDefSentence . renderTags) [parseFullDefTags t]
parseFullDefTags :: T.Text -> [Tag String] parseFullDefTags :: T.Text -> [Tag String]