module Data.JLD.Compaction.Global (JLDCompactionT, JLDCompactionEnv (..)) where

import Data.JLD.Prelude

import Data.JLD.Error (JLDError)
import Data.JLD.Options (JLDVersion (..))

type JLDCompactionT e m = ReaderT JLDCompactionEnv (ExceptT (JLDError e) m)

data JLDCompactionEnv = JLDCompactionEnv
    { jldCompactionEnvProcessingMode :: JLDVersion
    , jldCompactionCompactArrays :: Bool
    }
    deriving (Show)