blob: 76b2db7b7c8af1663a9f2bdf7472164aff5837de (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
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)
newtype JLDCompactionEnv = JLDCompactionEnv
{ jldCompactionEnvProcessingMode :: JLDVersion
}
deriving (Show)
|