@@ -34,6 +34,7 @@ module Docker.Client.Types (
34 , StartOpts(..)
34 , StartOpts(..)
35 , defaultStartOpts
35 , defaultStartOpts
36 , DeleteOpts(..)
36 , DeleteOpts(..)
37 , Timestamp
38 , Timestamp
38 , TailLogOpt(..)
39 , TailLogOpt(..)
39 , LogOpts(..)
40 , LogOpts(..)
@@ -616,10 +617,13 @@ defaultStartOpts :: StartOpts
616defaultStartOpts = StartOpts { detachKeys = DefaultDetachKey }
617defaultStartOpts = StartOpts { detachKeys = DefaultDetachKey }
618data DeleteOpts = DeleteOpts {
619data DeleteOpts = DeleteOpts {
619− deleteVolumes :: Bool
620+ deleteVolumes :: Bool -- ^ Automatically cleanup volumes that the container created as well.
620− , force :: Bool
621+ , force :: Bool -- ^ If the container is still running force deletion anyway.
621 } deriving (Eq, Show)
622 } deriving (Eq, Show)
624+defaultDeleteOpts :: DeleteOpts
625+defaultDeleteOpts = DeleteOpts { deleteVolumes = False, force = False }
623type Timestamp = Integer
627type Timestamp = Integer
624data TailLogOpt = Tail Integer | All deriving (Eq, Show)
628data TailLogOpt = Tail Integer | All deriving (Eq, Show)