jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

better implementation of isSpecial

This commit is contained in:
Jonathan Lamothe 2018-12-25 16:10:13 -05:00
parent d874db8da2
commit 8765d27236
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Password.hs
View File

@ -260,7 +260,7 @@ pwSearch x db = filter (\y -> l y `contains` l x) $ M.keys db where
l = map toLower l = map toLower
isSpecial :: Char -> Bool isSpecial :: Char -> Bool
isSpecial x = not $ isUpper x || isLower x || isDigit x isSpecial = not . isAlphaNum
mkPass :: String -> PWPolicy -> String mkPass :: String -> PWPolicy -> String
mkPass (x:xs) p = let p' = nextPolicy x p in mkPass (x:xs) p = let p' = nextPolicy x p in