better Readm

2022-12-25 01:53:06 +01:00
parent 8736e93643
commit 4ea203a082
4 changed files with 12 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -45,7 +45,10 @@ colorLang _        = Default
 search :: Dictionary -> Text -> [Text]
 search _ ""   = [""]
 search d name = let prefixes = L.filter (`T.isPrefixOf` name) $ keys d
-                in [(d!p) <> s | p <- prefixes, s <- search d (T.drop (T.length p) name)]
+                in if L.null prefixes then
+                    [" - NO PERFECT MACTH ('"<>name<>"' left over from input)"]
+                  else
+                    [(d!p) <> s | p <- prefixes, s <- search d (T.drop (T.length p) name)]

 getLanguageData :: IO (Map Language Dictionary)
 getLanguageData = do