diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1573,7 +1573,10 @@ tarC (sargs,margs) = do | |||
1573 | KikiSuccess rt -> do | 1573 | KikiSuccess rt -> do |
1574 | CTime pubtime <- modificationTime <$> getFileStatus (rtPubring rt) | 1574 | CTime pubtime <- modificationTime <$> getFileStatus (rtPubring rt) |
1575 | let keyspec = concat . take 1 <$> Map.lookup "--secrets" margs | 1575 | let keyspec = concat . take 1 <$> Map.lookup "--secrets" margs |
1576 | fs = tarContent rt keyspec build_ipsec (build_ssh rt pubtime) (build_secret rt) | 1576 | pubtime64 :: Int64 |
1577 | pubtime64 = fromIntegral pubtime -- EpochTime=CTime is Int32 on some platforms | ||
1578 | fs :: [(String, (Int64,Either (IO (Maybe Char8.ByteString)) Char8.ByteString))] | ||
1579 | fs = tarContent rt keyspec build_ipsec (build_ssh rt pubtime64) (build_secret rt) | ||
1577 | es = do | 1580 | es = do |
1578 | (n,(epoch_time_int64,ebs)) <- fs | 1581 | (n,(epoch_time_int64,ebs)) <- fs |
1579 | let mktar' = mktar n epoch_time_int64 | 1582 | let mktar' = mktar n epoch_time_int64 |