blob: dfe9efb4b6a89df44d55d0b46082cf9b0bcf155c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module HostName where
import Data.Maybe
import Control.Applicative
import System.Environment
import qualified Utility.Network as Network
type HostName = String
getHostName :: IO HostName
getHostName = go =<< getArgs
where
go (h:_) = return h
go [] = fromMaybe nohostname <$> Network.getHostname
nohostname = error "Cannot determine hostname! Pass it on the command line."
|
