1 module Model.VolumeState.Types 2 ( VolumeStateKey 3 , VolumeState(..) 4 ) where 5 6 import qualified Data.Aeson as JSON 7 import qualified Data.Text as T 8 9 import Model.Volume.Types 10 import Model.Id.Types 11 12 type VolumeStateKey = T.Text 13 14 data VolumeState = VolumeState 15 { volumeStateKey :: !VolumeStateKey 16 , volumeStateValue :: !JSON.Value 17 , volumeStatePublic :: !Bool 18 , stateVolumeId :: !(Id Volume) 19 }