module Model.VolumeState.Types ( VolumeStateKey , VolumeState(..) ) where import qualified Data.Aeson as JSON import qualified Data.Text as T import Model.Volume.Types import Model.Id.Types type VolumeStateKey = T.Text data VolumeState = VolumeState { volumeStateKey :: !VolumeStateKey , volumeStateValue :: !JSON.Value , volumeStatePublic :: !Bool , stateVolumeId :: !(Id Volume) }