1 module Databrary.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 Databrary.Model.Volume.Types 10 11 type VolumeStateKey = T.Text 12 13 data VolumeState = VolumeState 14 { volumeStateKey :: !VolumeStateKey 15 , volumeStateValue :: !JSON.Value 16 , volumeStatePublic :: !Bool 17 , stateVolume :: !Volume 18 }