22 lines
493 B
Haskell
22 lines
493 B
Haskell
|
{- network functions
|
||
|
|
-
|
||
|
|
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
||
|
|
-
|
||
|
|
- License: BSD-2-clause
|
||
|
|
-}
|
||
|
|
|
||
|
|
module Utility.Network where
|
||
|
|
|
||
|
|
import Utility.Process
|
||
|
|
import Utility.Exception
|
||
|
|
|
||
|
|
import Control.Applicative
|
||
|
|
|
||
|
|
{- 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"]
|