summaryrefslogtreecommitdiff
path: root/Property/Hostname.hs
blob: b4c28a2b13ccbc05ea0de9c3130d6c3b0d2cde95 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Property.Hostname where

import Data.List
import System.Posix
import Control.Applicative
import Data.Maybe

import Property
import Utility.SafeCommand
import Utility.Exception

type HostName = String

set :: HostName -> Property
set hostname = fileHasContent "/etc/hostname" [hostname]