src/Data/JLD/Compaction/Global.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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)