diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-12-26 05:55:03 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-12-26 05:55:03 +0100 |
| commit | f83bec1d304250b0af5a7fba60770d7250d05eea (patch) | |
| tree | f04e1739047a0493eb791d8626efa9911d795f00 | |
| parent | 3e431b7c53129c7682df7fd7bac6b217f45096d7 (diff) | |
chore: fix some warnings
| -rw-r--r-- | app/Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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"]) |