diff options
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 |