summaryrefslogtreecommitdiff
path: root/Propellor/Property/Hostname.hs
diff options
context:
space:
mode:
authorJoey Hess2014-05-14 19:41:05 -0400
committerJoey Hess2014-05-14 19:41:05 -0400
commit7115d1ec162b4059b3e8e8f84bd8d5898c1db025 (patch)
tree42c1cce54e890e1d56484794ab33129132d8fee2 /Propellor/Property/Hostname.hs
parentffe371a9d42cded461236e972a24a142419d7fc4 (diff)
moved source code to src
This is to work around OSX's brain-damange regarding filename case insensitivity. Avoided moving config.hs, because it's a config file. Put in a symlink to make build work.
Diffstat (limited to 'Propellor/Property/Hostname.hs')
-rw-r--r--Propellor/Property/Hostname.hs33
1 files changed, 0 insertions, 33 deletions
diff --git a/Propellor/Property/Hostname.hs b/Propellor/Property/Hostname.hs
deleted file mode 100644
index 031abb9d..00000000
--- a/Propellor/Property/Hostname.hs
+++ /dev/null
@@ -1,33 +0,0 @@
-module Propellor.Property.Hostname where
-
-import Propellor
-import qualified Propellor.Property.File as File
-
--- | Ensures that the hostname is set to the HostAttr value.
--- Configures /etc/hostname and the current hostname.
---
--- A FQDN also configures /etc/hosts, with an entry for 127.0.1.1, which is
--- standard at least on Debian to set the FDQN (127.0.0.1 is localhost).
-sane :: Property
-sane = property ("sane hostname") (ensureProperty . setTo =<< getHostName)
-
-setTo :: HostName -> Property
-setTo hn = combineProperties desc go
- `onChange` cmdProperty "hostname" [basehost]
- where
- desc = "hostname " ++ hn
- (basehost, domain) = separate (== '.') hn
-
- go = catMaybes
- [ Just $ "/etc/hostname" `File.hasContent` [basehost]
- , if null domain
- then Nothing
- else Just $ File.fileProperty desc
- addhostline "/etc/hosts"
- ]
-
- hostip = "127.0.1.1"
- hostline = hostip ++ "\t" ++ hn ++ " " ++ basehost
-
- addhostline ls = hostline : filter (not . hashostip) ls
- hashostip l = headMaybe (words l) == Just hostip