From f13975fdaa3b7834535a8bb5f1d546b1b90f8003 Mon Sep 17 00:00:00 2001
From: artlef <artlef@localhost>
Date: Sat, 2 Jun 2018 18:59:34 +0200
Subject: [PATCH] Took wrong header for definition

---
 ParseHtml.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ParseHtml.hs b/ParseHtml.hs
index 6d21030..6c7594f 100644
--- a/ParseHtml.hs
+++ b/ParseHtml.hs
@@ -47,7 +47,7 @@ getDef t n = renderFullDef (getFullDef t n)
 getFullDef :: T.Text -> Int -> WordFullDef
 getFullDef t n = WordFullDef header defList
   where
-    header = ((parseDefTags . differentDefTags) t !! (n-1))
+    header = ((parseDefTags . differentDefTags) t !! n)
     defList = map (WordDefSentence . renderTags) [parseFullDefTags t]
 
 parseFullDefTags :: T.Text -> [Tag String]