Forward port to nightly-2018-06-22.

1 files changed, 3 insertions, 2 deletions

diff --git a/Presence/UTmp.hs b/Presence/UTmp.hs
index aa2a7733..fcfe529a 100644
--- a/Presence/UTmp.hs
+++ b/Presence/UTmp.hs
@@ -17,6 +17,7 @@ import qualified Data.ByteString.Lazy.Char8 as L
 import Data.BitSyntax
 import Data.Functor.Identity
 import Data.Maybe
+import Data.String
 import System.Posix.Process
 import System.Posix.Signals
 import System.Posix.Types
@@ -34,8 +35,8 @@ import qualified Data.Text.Encoding as Text
 import SockAddr ()
 
 
-utmp_file :: String
-utmp_file = Paths.utmp -- "/var/run/utmp"
+utmp_file :: IsString s => s
+utmp_file = fromString $ Paths.utmp -- "/var/run/utmp"
 
 utmp_bs :: IO C.ByteString
 utmp_bs = S.readFile utmp_file