From 4e038a43cc9978af1015c53ab7cf27355d989069 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 17 Oct 2015 13:57:51 -0400 Subject: use Info to detect controller loops Much less invasive than the other implementation. --- src/Propellor/Types/CmdLine.hs | 9 --------- 1 file changed, 9 deletions(-) (limited to 'src/Propellor/Types/CmdLine.hs') diff --git a/src/Propellor/Types/CmdLine.hs b/src/Propellor/Types/CmdLine.hs index ca73c902..558c6e8b 100644 --- a/src/Propellor/Types/CmdLine.hs +++ b/src/Propellor/Types/CmdLine.hs @@ -1,20 +1,15 @@ -{-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving #-} - module Propellor.Types.CmdLine where import Propellor.Types.OS import Propellor.Types.PrivData import System.Posix.Types -import Data.Typeable -import Data.Monoid -- | All the command line actions that propellor can perform. data CmdLine = Run HostName | Spin [HostName] (Maybe HostName) | SimpleRun HostName - | ControlledRun HostName ControllerChain | Set PrivDataField Context | Unset PrivDataField Context | UnsetUnused @@ -34,7 +29,3 @@ data CmdLine | GitPush Fd Fd | Check deriving (Read, Show, Eq) - --- | List of hosts that acted as controllers to cause a host to be spinned. -newtype ControllerChain = ControllerChain [HostName] - deriving (Read, Show, Eq, Typeable, Monoid) -- cgit v1.2.3