From 5f5aa818f8484570349e75a061d7b37cc9fe826a Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Sun, 4 Nov 2018 03:25:21 -0500
Subject: Preparation to move DPut to a separate project.

---
 Presence/ConfigFiles.hs   | 1 +
 Presence/ConsoleWriter.hs | 1 +
 Presence/DNSCache.hs      | 1 +
 Presence/Presence.hs      | 1 +
 Presence/XMPPServer.hs    | 1 +
 5 files changed, 5 insertions(+)

(limited to 'Presence')

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)
 import Data.Maybe (catMaybes,isJust)
 
 import DPut
+import DebugTag
 
 type User = ByteString
 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
 import qualified Network.BSD as BSD
 
 import DPut
+import DebugTag
 import UTmp           ( users2, utmp_file, UtmpRecord(..), UT_Type(..) )
 import FGConsole      ( forkTTYMonitor )
 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_ )
 import GetHostByAddr ( getHostByAddr )
 import InterruptibleDelay
 import DPut
+import DebugTag
 
 type TimeStamp = UTCTime
 
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
 import Network.Tox.NodeId (key2id,parseNoSpamId,nospam64,NoSpamId(..),ToxProgress,ToxContact(..))
 import Crypto.Tox (decodeSecret)
 import DPut
+import DebugTag
 
 {-
 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(..) )
 import qualified System.Random
 import Data.Void (Void)
 import DPut
+import DebugTag
 
 -- peerport :: PortNumber
 -- peerport = 5269
-- 
cgit v1.2.3