FilePath is more descriptive than [Char]

1 files changed, 2 insertions, 2 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 377e6e2..b0dff04 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -1107,7 +1107,7 @@ importPEMKey ::
   (MappedPacket -> IO (KikiCondition Packet))
   -> KikiCondition
        (Map.Map KeyKey KeyData, [(FilePath, KikiReportAction)])
-  -> ([Char], Maybe [Char], [KeyKey], t)
+  -> (FilePath, Maybe [Char], [KeyKey], t)
   -> IO (KikiCondition (Map.Map KeyKey KeyData, [(FilePath, KikiReportAction)]))
 importPEMKey doDecrypt db' tup = do
             try db' $ \(db',report0) -> do
@@ -1455,7 +1455,7 @@ doImport
   :: Ord k =>
      (MappedPacket -> IO (KikiCondition Packet))
      -> Map.Map k KeyData
-     -> ([Char], Maybe [Char], [k], t)
+     -> (FilePath, Maybe [Char], [k], t)
      -> IO (KikiCondition (Map.Map k KeyData, [(FilePath,KikiReportAction)]))
 doImport doDecrypt db (fname,subspec,ms,_) = do
     let fetchkey = readKeyFromFile False "PEM" (ArgFile fname)