From f83bec1d304250b0af5a7fba60770d7250d05eea Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Tue, 26 Dec 2023 05:55:03 +0100
Subject: chore: fix some warnings

---
 app/Main.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 9593825..a9d6ca5 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -359,7 +359,6 @@ processDocumentsInteractively settings allDocs docs =
   mapM (uncurry processDocumentInteractively) (zip [1 :: Int ..] docs)
   where
     numDocs = length docs
-    tagValues' = tagValues docs
     processDocumentInteractively n doc = do
       choice <-
         P.prompt
@@ -444,7 +443,7 @@ suggestTags settings allDocs doc = do
             hasWord word doc = S.member word doc.index.originalWords
             hasTag tag doc = S.member tag doc.index.tags
             hasWordAndTag word tag doc = hasTag tag doc && hasWord word doc
-            fi = fromIntegral
+            fi = fromIntegral @Int @Double
 
             -- TODO Consider words that contribute to NOT adding a tag
             --
@@ -531,7 +530,7 @@ tagDocumentInteractively settings allDocs doc = do
     pure doc'
   where
     tagDocumentInteractively' :: Tag -> [Tag] -> IO (Either T.Text Tag)
-    tagDocumentInteractively' tag@(Tag tagKey Nothing) tags = do
+    tagDocumentInteractively' tag@(Tag tagKey Nothing) _ = do
       choice <-
         P.prompt $
           P.choice (printf "tag with %s?" tagKey) (("n" :: String) N.:| ["y"])
-- 
cgit v1.2.3