6fcccbba19Now that ghc 9.0.2 is the oldest supported version. Eg cruft from https://web.archive.org/web/20190424185034/https://prime.haskell.org/wiki/Libraries/Proposals/SemigroupMonoid Sponsored-by: Jack Hill
21 lines
512 B
Haskell
21 lines
512 B
Haskell
{- network functions
|
|
-
|
|
- Copyright 2012 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
module Utility.Network (getHostname) where
|
|
|
|
import Utility.Process
|
|
import Utility.Exception
|
|
|
|
{- Haskell lacks uname(2) bindings, except in the
|
|
- Bindings.Uname addon. Rather than depend on that,
|
|
- use uname -n when available. -}
|
|
getHostname :: IO (Maybe String)
|
|
getHostname = catchMaybeIO uname_node
|
|
where
|
|
uname_node = takeWhile (/= '\n') <$> readProcess "uname" ["-n"]
|