summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
Diffstat (limited to 'Utility')
-rw-r--r--Utility/Network.hs21
1 files changed, 0 insertions, 21 deletions
diff --git a/Utility/Network.hs b/Utility/Network.hs
deleted file mode 100644
index 62523c9e..00000000
--- a/Utility/Network.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-{- network functions
- -
- - Copyright 2012 Joey Hess <joey@kitenet.net>
- -
- - Licensed under the GNU GPL version 3 or higher.
- -}
-
-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"]