rnhmjoj/skeleton
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove unused functions

Browse Source
This commit is contained in:
rnhmjoj 2015-07-07 22:42:40 +02:00
parent 5fc2e9633d
commit 71d681ae5d
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Main.hs
View File

@ -13,18 +13,9 @@ import System.Console.ArgParser
-- Search functions -- -- Search functions --
byServer :: String -> Keychain -> [Item]
byServer s = byAttrib (Left "srv", Str s)
byAccount :: String -> Keychain -> [Item]
byAccount a = byAttrib (Left "acct", Str a)
byAttrib :: Attrib -> Keychain -> [Item] byAttrib :: Attrib -> Keychain -> [Item]
byAttrib a = filter (elem a . attrs) byAttrib a = filter (elem a . attrs)
attrib :: Name -> Item -> Maybe Value
attrib a = lookup a . attrs
fuzzy :: String -> Keychain -> [Item] fuzzy :: String -> Keychain -> [Item]
fuzzy x = filter (any (isInfixOf x) . strings) fuzzy x = filter (any (isInfixOf x) . strings)
where where
@ -102,5 +93,3 @@ search ProgArgs {..} = do
then mapM_ print (map content res) then mapM_ print (map content res)
else pprint res else pprint res
when (not noClipboard) (sendClipboard (content $ head res)) when (not noClipboard) (sendClipboard (content $ head res))