From 71d681ae5d2918eb9f9847687ef7f23eb88d069f Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Tue, 7 Jul 2015 22:42:40 +0200
Subject: [PATCH] Remove unused  functions

---
 src/Main.hs | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index f0b55e0..7945501 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -13,18 +13,9 @@ import System.Console.ArgParser
 
 -- 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 a = filter (elem a . attrs)
 
-attrib :: Name -> Item -> Maybe Value
-attrib a = lookup a . attrs
-
 fuzzy :: String -> Keychain -> [Item]
 fuzzy x = filter (any (isInfixOf x) . strings)
   where
@@ -102,5 +93,3 @@ search ProgArgs {..} = do
     then mapM_ print (map content res)
     else pprint res
   when (not noClipboard) (sendClipboard (content $ head res))
-
-