git-annex/Utility/Network.hs

{- 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

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"]
add 2012-08-05 14:50:00 -04:00			`{- network functions`
			`-`
update my email address and homepage url 2015-01-21 12:50:09 -04:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
add 2012-08-05 14:50:00 -04:00			`-`
relicense general utility library code to BSD Omitted a couple of files what have had significant contributions from others. 2014-05-10 11:01:27 -03:00			`- License: BSD-2-clause`
add 2012-08-05 14:50:00 -04:00			`-}`

more {-# OPTIONS_GHC -fno-warn-tabs #-} ... Forcing people who have what is merely a difference of opinion to you to do this is a bit of an asshole move. Just saying. 2015-05-10 16:38:49 -04:00			`{-# OPTIONS_GHC -fno-warn-tabs #-}`

explict export lists Eliminated some dead code. In other cases, exported a currently unused function, since it was a logical part of the API. Of course this improves the API documentation. It may also sometimes let ghc optimize code better, since it can know a function is internal to a module. 364 modules still to go, according to git grep -E 'module [A-Za-z.]+ where' 2019-11-21 15:38:06 -04:00			`module Utility.Network (getHostname) where`
add 2012-08-05 14:50:00 -04:00
			`import Utility.Process`
			`import Utility.Exception`

			`import Control.Applicative`
rejigger imports for clean build with ghc 7.10's AMP changes The explict import Prelude after import Control.Applicative is a trick to avoid a warning. 2015-05-10 16:19:56 -04:00			`import Prelude`
add 2012-08-05 14:50:00 -04:00
			`{- 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`
finished where indentation changes 2012-12-13 00:24:19 -04:00			`where`
			`uname_node = takeWhile (/= '\n') <$> readProcess "uname" ["-n"]`