20 lines
		
	
	
	
		
			356 B
			
		
	
	
	
		
			Haskell
		
	
	
	
	
	
			
		
		
	
	
			20 lines
		
	
	
	
		
			356 B
			
		
	
	
	
		
			Haskell
		
	
	
	
	
	
{- Enumeration of cleanup actions
 | 
						|
 -
 | 
						|
 - Copyright 2014 Joey Hess <id@joeyh.name>
 | 
						|
 -
 | 
						|
 - Licensed under the GNU GPL version 3 or higher.
 | 
						|
 -}
 | 
						|
 | 
						|
module Types.CleanupActions where
 | 
						|
 | 
						|
import Types.UUID
 | 
						|
 | 
						|
import Utility.Url
 | 
						|
 | 
						|
data CleanupAction
 | 
						|
	= RemoteCleanup UUID
 | 
						|
	| StopHook UUID
 | 
						|
	| FsckCleanup
 | 
						|
	| SshCachingCleanup
 | 
						|
	| TorrentCleanup URLString
 | 
						|
	deriving (Eq, Ord)
 |