diff options
author | Joe Crayne <joe@jerkface.net> | 2019-07-02 03:33:29 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-07-02 03:33:29 -0400 |
commit | b472f10fb19182deb4c081940cd1e660a0287fe9 (patch) | |
tree | 370f8bc5f5b3a4819224d221399f2b65fa5fbedf /lib/KeyRing/BuildKeyDB.hs | |
parent | 5d5ce0e97107619b8e33c76585d7629f106ad3c8 (diff) |
Changed KeyKey to avoid serializing bignums.
Diffstat (limited to 'lib/KeyRing/BuildKeyDB.hs')
-rw-r--r-- | lib/KeyRing/BuildKeyDB.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs index d8f8d50..bae2538 100644 --- a/lib/KeyRing/BuildKeyDB.hs +++ b/lib/KeyRing/BuildKeyDB.hs | |||
@@ -126,10 +126,10 @@ buildKeyDB :: InputFileContext -> Maybe String -> KeyRingOperation | |||
126 | ,{- hs -} ({- hostdbs0 -}[Hosts.Hosts], | 126 | ,{- hs -} ({- hostdbs0 -}[Hosts.Hosts], |
127 | {- hostdbs -}[Hosts.Hosts], | 127 | {- hostdbs -}[Hosts.Hosts], |
128 | {- u1 -}Hosts.Hosts, | 128 | {- u1 -}Hosts.Hosts, |
129 | {- gpgnames -}[(SockAddr, (KeyKey, KeyKey))], | 129 | {- gpgnames -}[(SockAddr, ([ByteString],[ByteString]))], |
130 | {- outgoing_names -}[SockAddr]) | 130 | {- outgoing_names -}[SockAddr]) |
131 | ,{- accs -} Map.Map InputFile Access | 131 | ,{- accs -} Map.Map InputFile Access |
132 | ,{- doDecrypt -} PacketTranscoder | 132 | ,{- transcode -} PacketTranscoder |
133 | ,{- unspilled -} Map.Map InputFile Message | 133 | ,{- unspilled -} Map.Map InputFile Message |
134 | ) | 134 | ) |
135 | ,{- report_imports -} [(FilePath,KikiReportAction)])) | 135 | ,{- report_imports -} [(FilePath,KikiReportAction)])) |
@@ -544,7 +544,7 @@ generateInternals transcode mwk db gens = do | |||
544 | mergeHostFiles :: KeyRingOperation -> KeyDB -> InputFileContext | 544 | mergeHostFiles :: KeyRingOperation -> KeyDB -> InputFileContext |
545 | -> IO | 545 | -> IO |
546 | (KikiCondition | 546 | (KikiCondition |
547 | ( ( Map.Map [Char8.ByteString] KeyData | 547 | ( ( KeyDB |
548 | , ( [Hosts.Hosts] | 548 | , ( [Hosts.Hosts] |
549 | , [Hosts.Hosts] | 549 | , [Hosts.Hosts] |
550 | , Hosts.Hosts | 550 | , Hosts.Hosts |