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   }