implemented pwGetService

2018-12-24 12:22:54 -05:00
parent 7b13aad709
commit 6998dfe03e
3 changed files with 60 additions and 1 deletions
--- a/src/Password.hs
+++ b/src/Password.hs
@@ -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