Switched UTmp.users to return ByteStrings instead of Strings.

1 files changed, 6 insertions, 2 deletions

diff --git a/Presence/UTmp.hs b/Presence/UTmp.hs
index c2549a88..481612e3 100644
--- a/Presence/UTmp.hs
+++ b/Presence/UTmp.hs
@@ -1,9 +1,9 @@
-
 {-# LANGUAGE TemplateHaskell #-}
 module UTmp (users, utmp_file) where
 
 import qualified Data.ByteString as S
 import qualified Data.ByteString.Char8 as C
+import qualified Data.ByteString.Lazy.Char8 as L
 import Data.BitSyntax
 import Data.Functor.Identity
 import Data.Maybe
@@ -80,11 +80,15 @@ processAlive pid = do
     catchError (do { signalProcess nullSignal pid ; return True })
       $ \e -> do { return (not ( isDoesNotExistError e)); }
 
+type UserName = L.ByteString
+type Tty      = L.ByteString
+
+users :: IO [(UserName, Tty, ProcessID)]
 users = do
     us <- utmp
     let us' = map interp_utmp_record us
         us'' = mapMaybe user_proc us'
-        user_proc (u,tty,pid,USER_PROCESS) = Just (u,tty,pid)
+        user_proc (u,tty,pid,USER_PROCESS) = Just (L.pack u,L.pack tty,pid)
         user_proc _                        = Nothing
         onThrd f (_,_,pid) = f pid
     us3 <- filterM (onThrd processAlive) us''