diff options
Diffstat (limited to 'app/Main.hs')
| -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"]) |