Obtain utmp path from paths.h header.

2 files changed, 35 insertions, 1 deletions

diff --git a/Presence/Paths.hs b/Presence/Paths.hs
new file mode 100644
index 00000000..ac7c0938
--- /dev/null
+++ b/Presence/Paths.hs
@@ -0,0 +1,33 @@
+{-# LANGUAGE CPP #-}
+module Paths where
+
+#include <paths.h>
+
+bshell = _PATH_BSHELL
+console = _PATH_CONSOLE
+cshell = _PATH_CSHELL
+devdb = _PATH_DEVDB
+devnull = _PATH_DEVNULL
+drum = _PATH_DRUM
+gshadow = _PATH_GSHADOW
+klog = _PATH_KLOG
+kmem = _PATH_KMEM
+lastlog = _PATH_LASTLOG
+maildir = _PATH_MAILDIR
+man = _PATH_MAN
+mem = _PATH_MEM
+mnttab = _PATH_MNTTAB
+mounted = _PATH_MOUNTED
+nologin = _PATH_NOLOGIN
+preserve = _PATH_PRESERVE
+rwhodir = _PATH_RWHODIR
+sendmail = _PATH_SENDMAIL
+shadow = _PATH_SHADOW
+shells = _PATH_SHELLS
+tty = _PATH_TTY
+unix = _PATH_UNIX
+utmp = _PATH_UTMP
+vi = _PATH_VI
+wtmp = _PATH_WTMP
+
+
diff --git a/Presence/UTmp.hs b/Presence/UTmp.hs
index 898e05e0..a3adaeee 100644
--- a/Presence/UTmp.hs
+++ b/Presence/UTmp.hs
@@ -21,9 +21,10 @@ import Data.Word
 import Data.Int
 import Control.Monad.Error.Class
 import System.IO.Error
+import qualified Paths
 
 
-utmp_file = "/var/run/utmp"
+utmp_file = Paths.utmp -- "/var/run/utmp"
 
 utmp_bs = S.readFile utmp_file