summaryrefslogtreecommitdiff
path: root/src/Propellor/Info.hs
diff options
context:
space:
mode:
authorJoey Hess2017-02-04 17:07:32 -0400
committerJoey Hess2017-02-04 17:07:32 -0400
commit8f37ddf53da31987f3db01d51fd9119d1e0c8a1d (patch)
tree786d557ab7d083137e1bf0a18a5eae1c5fd9d18d /src/Propellor/Info.hs
parent5ff45a37b1ffde8fe9150815d81236354c89e20b (diff)
parent25f6871e1dda3de252fbc6c8ac6962eb0cd9311a (diff)
Merge remote-tracking branch 'wzhd/archlinux'
Diffstat (limited to 'src/Propellor/Info.hs')
-rw-r--r--src/Propellor/Info.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Propellor/Info.hs b/src/Propellor/Info.hs
index 3d7f07a5..49ca689f 100644
--- a/src/Propellor/Info.hs
+++ b/src/Propellor/Info.hs
@@ -3,6 +3,7 @@
module Propellor.Info (
osDebian,
osBuntish,
+ osArchLinux,
osFreeBSD,
setInfoProperty,
addInfoProperty,
@@ -106,6 +107,10 @@ osBuntish release arch = tightenTargets $ os (System (Buntish release) arch)
osFreeBSD :: FreeBSDRelease -> Architecture -> Property (HasInfo + FreeBSD)
osFreeBSD release arch = tightenTargets $ os (System (FreeBSD release) arch)
+-- | Specifies that a host's operating system is Arch Linux
+osArchLinux :: Architecture -> Property (HasInfo + ArchLinux)
+osArchLinux arch = tightenTargets $ os (System (ArchLinux) arch)
+
os :: System -> Property (HasInfo + UnixLike)
os system = pureInfoProperty ("Operating " ++ show system) (InfoVal system)