summaryrefslogtreecommitdiff
path: root/HostName.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 19:10:32 -0400
committerJoey Hess2014-03-30 19:10:32 -0400
commit61d8214d9d8cea6ba047d1a26f9edc1ea180234b (patch)
tree1e9f0184af88eed1dd5974bf2f47b0765c23b321 /HostName.hs
parent4e442f4bcf04a68f638393d180ac7664ddd0fe4b (diff)
propellor spin
Diffstat (limited to 'HostName.hs')
-rw-r--r--HostName.hs18
1 files changed, 0 insertions, 18 deletions
diff --git a/HostName.hs b/HostName.hs
deleted file mode 100644
index 2cc50ea9..00000000
--- a/HostName.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module HostName where
-
-import Control.Applicative
-import System.Environment
-
-import Utility.Process
-
-type HostName = String
-
-getHostName :: IO HostName
-getHostName = go =<< getArgs
- where
- go (h:_) = return h
- 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