RosettaCodeData/Task/Hostname/Haskell/hostname-1.hs

import Network.BSD
main = do hostName <- getHostName
          putStrLn hostName