diff options
| author | Andrew Cady <d@jerkface.net> | 2019-07-08 18:01:49 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2019-07-08 18:01:49 -0400 |
| commit | e7373bc2114179db99dd53009b11c1c3b96c7d8e (patch) | |
| tree | efa488e7dfb2c940b1f48d0c923b612ff3626e64 /lib/KeyRing.hs | |
| parent | 0efeea061f1aaad7ee60162f0502c4e445489d3b (diff) | |
use a type for outgoing_names
Diffstat (limited to 'lib/KeyRing.hs')
| -rw-r--r-- | lib/KeyRing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index 8b041f1..f8e2290 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs | |||
| @@ -583,9 +583,9 @@ writeHostsFiles | |||
| 583 | [Hosts.Hosts], | 583 | [Hosts.Hosts], |
| 584 | Hosts.Hosts, | 584 | Hosts.Hosts, |
| 585 | [Hostnames], | 585 | [Hostnames], |
| 586 | [SockAddr]) | 586 | IPsToWriteToHostsFile) |
| 587 | -> IO [(FilePath, KikiReportAction)] | 587 | -> IO [(FilePath, KikiReportAction)] |
| 588 | writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do | 588 | writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,IPsToWriteToHostsFile outgoing_names) = do |
| 589 | let hns = files isMutableHosts | 589 | let hns = files isMutableHosts |
| 590 | isMutableHosts stream | KF_None <- fill stream = False | 590 | isMutableHosts stream | KF_None <- fill stream = False |
| 591 | isMutableHosts stream | Hosts <- typ stream = True | 591 | isMutableHosts stream | Hosts <- typ stream = True |