get rid of (completely safe) uses of Char8

Char8 often indicates an encoding bug. It didn't here, but I can avoid it
and not worry about it.

1 files changed, 2 insertions, 2 deletions

diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs
index 41ab4b272..5ae987a61 100644
--- a/Assistant/Types/NetMessager.hs
+++ b/Assistant/Types/NetMessager.hs
@@ -12,13 +12,13 @@ import Assistant.Pairing
 import Git.Types
 
 import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
 import qualified Data.Set as S
 import qualified Data.Map as M
 import qualified Data.DList as D
 import Control.Concurrent.STM
 import Control.Concurrent.MSampleVar
 import Data.ByteString (ByteString)
-import qualified Data.ByteString.Char8 as B8
 import Data.Text (Text)
 
 {- Messages that can be sent out of band by a network messager. -}
@@ -85,7 +85,7 @@ logNetMessage (Pushing c stage) = show $ Pushing (logClientID c) $
 		SendPackOutput n _ -> SendPackOutput n elided
 		s -> s
   where
-  	elided = B8.pack "<elided>"
+  	elided = T.encodeUtf8 $ T.pack "<elided>"
 logNetMessage (PairingNotification stage c uuid) =
 	show $ PairingNotification stage (logClientID c) uuid
 logNetMessage m = show m