diff options
author | James Crayne <jim.crayne@gmail.com> | 2018-11-04 03:25:21 -0500 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2018-11-04 03:25:21 -0500 |
commit | 5f5aa818f8484570349e75a061d7b37cc9fe826a (patch) | |
tree | 9a574cc572d2caa4af9571a4776d207250e93add /Presence | |
parent | df787ee7eea3d0d6e0defdc4a7cbe646ca062feb (diff) |
Preparation to move DPut to a separate project.
Diffstat (limited to 'Presence')
-rw-r--r-- | Presence/ConfigFiles.hs | 1 | ||||
-rw-r--r-- | Presence/ConsoleWriter.hs | 1 | ||||
-rw-r--r-- | Presence/DNSCache.hs | 1 | ||||
-rw-r--r-- | Presence/Presence.hs | 1 | ||||
-rw-r--r-- | Presence/XMPPServer.hs | 1 |
5 files changed, 5 insertions, 0 deletions
diff --git a/Presence/ConfigFiles.hs b/Presence/ConfigFiles.hs index 27a65bbf..d0164e33 100644 --- a/Presence/ConfigFiles.hs +++ b/Presence/ConfigFiles.hs | |||
@@ -17,6 +17,7 @@ import Data.List (partition) | |||
17 | import Data.Maybe (catMaybes,isJust) | 17 | import Data.Maybe (catMaybes,isJust) |
18 | 18 | ||
19 | import DPut | 19 | import DPut |
20 | import DebugTag | ||
20 | 21 | ||
21 | type User = ByteString | 22 | type User = ByteString |
22 | type Profile = String | 23 | type Profile = String |
diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs index 7c377d83..c6e1871a 100644 --- a/Presence/ConsoleWriter.hs +++ b/Presence/ConsoleWriter.hs | |||
@@ -36,6 +36,7 @@ import qualified Data.Text as Text | |||
36 | import qualified Network.BSD as BSD | 36 | import qualified Network.BSD as BSD |
37 | 37 | ||
38 | import DPut | 38 | import DPut |
39 | import DebugTag | ||
39 | import UTmp ( users2, utmp_file, UtmpRecord(..), UT_Type(..) ) | 40 | import UTmp ( users2, utmp_file, UtmpRecord(..), UT_Type(..) ) |
40 | import FGConsole ( forkTTYMonitor ) | 41 | import FGConsole ( forkTTYMonitor ) |
41 | import XMPPServer ( Stanza, makePresenceStanza, JabberShow(..), stanzaType | 42 | import XMPPServer ( Stanza, makePresenceStanza, JabberShow(..), stanzaType |
diff --git a/Presence/DNSCache.hs b/Presence/DNSCache.hs index c5154e34..e28655c5 100644 --- a/Presence/DNSCache.hs +++ b/Presence/DNSCache.hs | |||
@@ -53,6 +53,7 @@ import ControlMaybe ( handleIO_ ) | |||
53 | import GetHostByAddr ( getHostByAddr ) | 53 | import GetHostByAddr ( getHostByAddr ) |
54 | import InterruptibleDelay | 54 | import InterruptibleDelay |
55 | import DPut | 55 | import DPut |
56 | import DebugTag | ||
56 | 57 | ||
57 | type TimeStamp = UTCTime | 58 | type TimeStamp = UTCTime |
58 | 59 | ||
diff --git a/Presence/Presence.hs b/Presence/Presence.hs index cc3f488b..0ae9653f 100644 --- a/Presence/Presence.hs +++ b/Presence/Presence.hs | |||
@@ -53,6 +53,7 @@ import qualified Connection | |||
53 | import Network.Tox.NodeId (key2id,parseNoSpamId,nospam64,NoSpamId(..),ToxProgress,ToxContact(..)) | 53 | import Network.Tox.NodeId (key2id,parseNoSpamId,nospam64,NoSpamId(..),ToxProgress,ToxContact(..)) |
54 | import Crypto.Tox (decodeSecret) | 54 | import Crypto.Tox (decodeSecret) |
55 | import DPut | 55 | import DPut |
56 | import DebugTag | ||
56 | 57 | ||
57 | {- | 58 | {- |
58 | isPeerKey :: ClientAddress -> Bool | 59 | isPeerKey :: ClientAddress -> Bool |
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index 2345cb67..42425c5e 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs | |||
@@ -105,6 +105,7 @@ import Data.String ( IsString(..) ) | |||
105 | import qualified System.Random | 105 | import qualified System.Random |
106 | import Data.Void (Void) | 106 | import Data.Void (Void) |
107 | import DPut | 107 | import DPut |
108 | import DebugTag | ||
108 | 109 | ||
109 | -- peerport :: PortNumber | 110 | -- peerport :: PortNumber |
110 | -- peerport = 5269 | 111 | -- peerport = 5269 |