From b845dc5c5ebad65472c43c6037fc32654562bc71 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sun, 4 May 2014 20:09:19 -0400
Subject: removed deprecated argument to KeyRingFile

---
 KeyRing.hs | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'KeyRing.hs')

diff --git a/KeyRing.hs b/KeyRing.hs
index 9d046b6..b0d1b67 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -205,13 +205,10 @@ data InputFile = HomeSec
 
 -- type UsageTag = String
 type Initializer = String
-type PasswordFile = InputFile
 
-data FileType = KeyRingFile (Maybe PasswordFile)
-              -- ^ PasswordFile parameter is deprecated in favor
-              -- of opPassphrases. TODO: remove it.
+data FileType = KeyRingFile
               | PEMFile
-              | WalletFile -- (Maybe UsageTag)
+              | WalletFile
               | Hosts
 
 -- | Use this type to indicate whether a file of type 'KeyRingFile' is expected
@@ -301,9 +298,11 @@ ispem :: FileType -> Bool
 ispem (PEMFile {}) = True
 ispem _            = False
 
-pwfile :: FileType -> Maybe PasswordFile
+{-
+pwfile :: FileType -> Maybe InputFile
 pwfile (KeyRingFile f) = f
 pwfile _               = Nothing
+-}
 
 iswallet :: FileType -> Bool
 iswallet (WalletFile {}) = True
@@ -1791,10 +1790,12 @@ makeMemoizingDecrypter operation ctx keys = do
     -- TODO: Perhaps these should both be of type InputFile rather than
     -- FilePath?
     -- pws :: Map.Map FilePath (IO S.ByteString)
+    {-
     pws <-
         Traversable.mapM (cachedContents ctx . fromJust . pwfile . typ)
                          (Map.mapKeys (resolveForReport Nothing) -- see note (*) note above
                             $ Map.filter (isJust . pwfile . typ) $ opFiles operation)
+    -}
     pws2 <- 
         Traversable.mapM (cachedContents ctx)
          $ Map.fromList $ mapMaybe
@@ -1808,7 +1809,7 @@ makeMemoizingDecrypter operation ctx keys = do
                                         && isNothing (passSpecKeySpec sp))
                                     $ opPassphrases operation
     unkeysRef <- newIORef (Map.empty :: Map.Map KeyKey Packet)
-    return $ doDecrypt unkeysRef (pws `Map.union` pws2) defpw
+    return $ doDecrypt unkeysRef ({- pws `Map.union` -} pws2) defpw
  where
     doDecrypt :: IORef (Map.Map KeyKey Packet)
                 -> Map.Map FilePath (IO S.ByteString)
-- 
cgit v1.2.3