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