From 7115d1ec162b4059b3e8e8f84bd8d5898c1db025 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 May 2014 19:41:05 -0400 Subject: 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. --- Propellor/Property/Hostname.hs | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 Propellor/Property/Hostname.hs (limited to 'Propellor/Property/Hostname.hs') 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 -- cgit v1.2.3