use fqdn

1 files changed, 6 insertions, 4 deletions

diff --git a/HostName.hs b/HostName.hs
index dfe9efb4..2cc50ea9 100644
--- a/HostName.hs
+++ b/HostName.hs
@@ -1,10 +1,9 @@
 module HostName where
 
-import Data.Maybe
 import Control.Applicative
 import System.Environment
 
-import qualified Utility.Network as Network
+import Utility.Process
 
 type HostName = String
 
@@ -12,5 +11,8 @@ 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."
+	go [] = do
+		s <- takeWhile (/= '\n') <$> readProcess "hostname" ["-f"]
+		if null s
+			then error "Cannot determine hostname! Pass it on the command line."
+			else return s