summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/MetaTypes.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-27 01:27:42 -0400
committerJoey Hess2016-03-27 01:28:18 -0400
commit448d2c185e8d5d1da95113844f1b6d15d10883f6 (patch)
treef27095003550420cf1fa37a96148c8a391abdc94 /src/Propellor/Types/MetaTypes.hs
parent3deb3a622eec5e12dfaee320faaeb12c70f9c8d0 (diff)
refactor
Diffstat (limited to 'src/Propellor/Types/MetaTypes.hs')
-rw-r--r--src/Propellor/Types/MetaTypes.hs13
1 files changed, 4 insertions, 9 deletions
diff --git a/src/Propellor/Types/MetaTypes.hs b/src/Propellor/Types/MetaTypes.hs
index 6033ec27..ce2b1411 100644
--- a/src/Propellor/Types/MetaTypes.hs
+++ b/src/Propellor/Types/MetaTypes.hs
@@ -2,7 +2,6 @@
module Propellor.Types.MetaTypes (
MetaType(..),
- OS(..),
UnixLike,
Linux,
DebianLike,
@@ -26,15 +25,11 @@ module Propellor.Types.MetaTypes (
EqT,
) where
+import Propellor.Types.OS
+
data MetaType
- = Targeting OS -- ^ A target OS of a Property
- | WithInfo -- ^ Indicates that a Property has associated Info
-
-data OS
- = OSDebian
- | OSBuntish -- ^ A well-known Debian derivative founded by a space tourist. The actual name of this distribution is not used in Propellor per <http://joeyh.name/blog/entry/trademark_nonsense/>
- | OSFreeBSD
- deriving (Show, Eq)
+ = Targeting TargetOS -- ^ A target OS of a Property
+ | WithInfo -- ^ Indicates that a Property has associated Info
-- | Any unix-like system
type UnixLike = MetaTypes '[ 'Targeting 'OSDebian, 'Targeting 'OSBuntish, 'Targeting 'OSFreeBSD ]