From 3940f2cbde7a7ca220be932abb58f1c1a99c9b26 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 01:17:19 -0400 Subject: use fqdn --- Utility/Network.hs | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 Utility/Network.hs (limited to 'Utility/Network.hs') 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 - - - - 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"] -- cgit v1.2.3