1 files changed, 12 insertions, 3 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 222c1bb..a0e2d07 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -152,6 +152,7 @@ minimalOp isHomeless cap = op
                                          return $ PassphraseSpec Nothing Nothing pfile
         , opTransforms = []
         , opHome = cap_homespec cap
+        , preferredPGPVersion = 4
         }
 
 run :: [String] -> Args (IO ()) -> IO ()
@@ -203,8 +204,8 @@ peminfo bits usage = StreamInfo
               , transforms  = []
               }
 
-importAndRefresh :: (FilePath -> FilePath) -> CommonArgsParsed -> SymmetricAlgorithm -> IO ()
-importAndRefresh root cmn cipher = do
+importAndRefresh :: Word8 -> (FilePath -> FilePath) -> CommonArgsParsed -> SymmetricAlgorithm -> IO ()
+importAndRefresh pgpver root cmn cipher = do
   let rootdir = do guard (root "x" /= "x")
                    Just $ root ""
   me <- getEffectiveUserID
@@ -214,7 +215,6 @@ importAndRefresh root cmn cipher = do
     let homespec = mplus (slash <$> rootdir <*> cap_homespec cmn)
                          (fmap (++"/root/.gnupg") rootdir)
         passfd = cap_passfd cmn
-        pgpver = preferredPGPVersion $ minimalOp False cmn
     (home,secring,pubring,mbwk) <- unconditionally $ getHomeDir homespec
     osHomeDir <- if bUnprivileged then getHomeDirectory else return "/root"
 
@@ -326,6 +326,7 @@ importAndRefresh root cmn cipher = do
                                                    return $ PassphraseSpec Nothing Nothing pfd
           , opHome = homespec
           , opTransforms = []
+          , preferredPGPVersion = pgpver
           }
         nop =
           KeyRingOperation
@@ -340,6 +341,7 @@ importAndRefresh root cmn cipher = do
                                            return $ PassphraseSpec Nothing Nothing pfd
           , opHome=homespec
           , opTransforms = []
+          , preferredPGPVersion = pgpver
           }
     when bUnprivileged $ do
         hPutStrLn stderr "Insufficient privilege generating system service keys."
@@ -473,6 +475,7 @@ generateHostsFile fw rt      = do
              , opPassphrases = []
              , opHome        = Just $ takeDirectory (rtPubring rt)
              , opTransforms  = []
+             , preferredPGPVersion = 4 -- Does not matter (no fill of pgp files).
              }
     KikiResult _ report <- runKeyRing op
     outputReport report
@@ -723,6 +726,12 @@ slash ""     ('/':xs) = '/':xs
 slash ""     xs       = '/':xs
 slash (y:ys) xs       = y:slash ys xs
 
+dashdashPGPVersion :: Args Word8
+dashdashPGPVersion = liftA2 (\is4 is5 -> if is5 then 5 else if is4 then 4 else defaultV) (flag "-4") (flag "-5")
+ where
+    defaultV = 4 -- Use v4 packets by default for now.
+
+
 dashdashChroot :: Args (FilePath -> FilePath)
 dashdashChroot = pure (\r a -> slash r a) <*> arg "--chroot" <|> pure id