@@ -32,8 +32,8 @@ Typeclass for pandoc readers and writers, allowing both IO and pure instances.
3232-}
3333
3434module Text.Pandoc.Class ( PandocMonad(..)
35− , TestState(..)
36− , TestEnv(..)
35+ , PureState(..)
36+ , PureEnv(..)
3737 , getPOSIXTime
3838 , PandocIO(..)
3939 , PandocPure(..)
@@ -170,7 +170,7 @@ instance PandocMonad PandocIO where
170170 insertMedia fp mime bs =
171171 modify $ \st -> st{ioStMediaBag = MB.insertMedia fp mime bs (ioStMediaBag st) }
172172
173−data TestState = TestState { stStdGen :: StdGen
173+data PureState = PureState { stStdGen :: StdGen
174174 , stWord8Store :: [Word8] -- should be
175175 -- inifinite,
176176 -- i.e. [1..]
@@ -183,15 +183,15 @@ data TestState = TestState { stStdGen :: StdGen
183183 , stMediaBag :: MediaBag
184184 }
185185
186−instance Default TestState where
187− def = TestState { stStdGen = mkStdGen 1848
186+instance Default PureState where
187+ def = PureState { stStdGen = mkStdGen 1848
188188 , stWord8Store = [1..]
189189 , stWarnings = []
190190 , stUniqStore = [1..]
191191 , stMediaBag = mempty
192192 }
193193
194−data TestEnv = TestEnv { envEnv :: [(String, String)]
194+data PureEnv = PureEnv { envEnv :: [(String, String)]
195195 , envTime :: UTCTime
196196 , envReferenceDocx :: Archive
197197 , envReferenceODT :: Archive
@@ -203,8 +203,8 @@ data TestEnv = TestEnv { envEnv :: [(String, String)]
203203
204204-- We have to figure this out a bit more. But let's put some empty
205205-- values in for the time being.
206−instance Default TestEnv where
207− def = TestEnv { envEnv = [("USER", "pandoc-user")]
206+instance Default PureEnv where
207+ def = PureEnv { envEnv = [("USER", "pandoc-user")]
208208 , envTime = posixSecondsToUTCTime 0
209209 , envReferenceDocx = emptyArchive
210210 , envReferenceODT = emptyArchive
@@ -218,8 +218,8 @@ instance E.Exception PandocExecutionError
218218
219219newtype PandocPure a = PandocPure {
220220 unPandocPure :: ExceptT PandocExecutionError
221− (ReaderT TestEnv (State TestState)) a
222− } deriving (Functor, Applicative, Monad, MonadReader TestEnv, MonadState TestState, MonadError PandocExecutionError)
221+ (ReaderT PureEnv (State PureState)) a
222+ } deriving (Functor, Applicative, Monad, MonadReader PureEnv, MonadState PureState, MonadError PandocExecutionError)
223223
224224runPure :: PandocPure a -> Either PandocExecutionError a
225225runPure x = flip evalState def $ flip runReaderT def $ runExceptT $ unPandocPure x