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   }