partial implementation of password view/edit

src/Password.hs

@@ -43,7 +43,7 @@ module Password (
   -- ** Password Checkers
   pwCountUpper, pwCountLower, pwCountDigits, pwCountSpecial,
   -- ** Database Functions
-  pwHasService, pwSetService, pwGetService
+  pwHasService, pwSetService, pwGetService, pwSearch
   ) where
 
 import Control.Lens (makeLenses, over, set, (^.))
@@ -238,6 +238,16 @@ pwGetService
   -- not found
 pwGetService = M.lookup
 
+-- | searches for a service
+pwSearch
+  :: String
+  -- ^ the search string
+  -> PWDatabase
+  -- ^ the database to search
+  -> [String]
+  -- ^ the matching service names
+pwSearch = undefined
+
 isSpecial :: Char -> Bool
 isSpecial x = not $ isUpper x || isLower x || isDigit x