clean up cleanup action enumeration
This commit is contained in:
parent
83ccce68a2
commit
b63276309e
6 changed files with 29 additions and 8 deletions
16
Types/CleanupActions.hs
Normal file
16
Types/CleanupActions.hs
Normal file
|
@ -0,0 +1,16 @@
|
|||
{- Enumeration of cleanup actions
|
||||
-
|
||||
- Copyright 2014 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Types.CleanupActions where
|
||||
|
||||
import Types.UUID
|
||||
|
||||
data CleanupAction
|
||||
= RemoteCleanup UUID
|
||||
| StopHook UUID
|
||||
| FsckCleanup
|
||||
deriving (Eq, Ord)
|
Loading…
Add table
Add a link
Reference in a new issue