implemented pwGetService

This commit is contained in:
Jonathan Lamothe committed 2018-12-24 12:22:54 -05:00
1 parent 7b13aad709
commit 6998dfe03e
3 files changed
+60 -1

No files matched your search

+1 -1
View File
@@ -236,7 +236,7 @@ pwGetService
-> Maybe PWData
-- ^ the service's password data, or @"Nothing"@ if the service is
-- not found
pwGetService = undefined
pwGetService = M.lookup
isSpecial :: Char -> Bool
isSpecial x = not $ isUpper x || isLower x || isDigit x