@@ -34,6 +34,7 @@ module Docker.Client.Types (
3434 , StartOpts(..)
3535 , defaultStartOpts
3636 , DeleteOpts(..)
37+ , defaultDeleteOpts
3738 , Timestamp
3839 , TailLogOpt(..)
3940 , LogOpts(..)
@@ -616,10 +617,13 @@ defaultStartOpts :: StartOpts
616617defaultStartOpts = StartOpts { detachKeys = DefaultDetachKey }
617618
618619data DeleteOpts = DeleteOpts {
619− deleteVolumes :: Bool
620− , force :: Bool
620+ deleteVolumes :: Bool -- ^ Automatically cleanup volumes that the container created as well.
621+ , force :: Bool -- ^ If the container is still running force deletion anyway.
621622 } deriving (Eq, Show)
622623
624+defaultDeleteOpts :: DeleteOpts
625+defaultDeleteOpts = DeleteOpts { deleteVolumes = False, force = False }
626+
623627type Timestamp = Integer
624628data TailLogOpt = Tail Integer | All deriving (Eq, Show)
625629