summaryrefslogtreecommitdiff
path: root/HostName.hs
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."