From 448d2c185e8d5d1da95113844f1b6d15d10883f6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 27 Mar 2016 01:27:42 -0400 Subject: refactor --- src/Propellor/Types/MetaTypes.hs | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'src/Propellor/Types/MetaTypes.hs') 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 - | 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 ] -- cgit v1.2.3