implemented pwHasService

2018-12-24 10:53:52 -05:00
parent 771eaa9c42
commit 824f52b108
3 changed files with 57 additions and 1 deletions
--- a/src/Password.hs
+++ b/src/Password.hs
@@ -213,7 +213,7 @@ pwHasService
  -- ^ the database to check
  -> Bool
  -- ^ returns @"True"@ if found; @"False"@ otherwise
-pwHasService = undefined
+pwHasService x db = elem x $ M.keys db

 -- | adds a service to the database, or overwrites an existing one
 pwSetService