24 lines
541 B
Haskell
24 lines
541 B
Haskell
{- network functions
|
|
-
|
|
- Copyright 2012 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
module Utility.Network where
|
|
|
|
import Utility.Process
|
|
import Utility.Exception
|
|
|
|
import Control.Applicative
|
|
import Prelude
|
|
|
|
{- 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"]
|