diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-06-16 23:29:37 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-17 07:45:28 +0200 |
| commit | 9849ba7fd744f529f063e0802a18fa18c8433eeb (patch) | |
| tree | 129de8b4a195535cd3868f43ba335c03c5d0b877 /src/Text/Pandoc/Writers/EPUB.hs | |
| parent | 23f3c2d7b4796d1af742a74999ce67924bf2abb3 (diff) | |
| download | pandoc-9849ba7fd744f529f063e0802a18fa18c8433eeb.tar.gz | |
Use Control.Monad.State.Strict throughout.
This gives 20-30% speedup and reduction of memory
usage in most of the writers.
Diffstat (limited to 'src/Text/Pandoc/Writers/EPUB.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index d68283007..bd9a4c800 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -36,7 +36,7 @@ import Codec.Archive.Zip (Entry, addEntryToArchive, eRelativePath, emptyArchive, fromArchive, fromEntry, toEntry) import Control.Monad (mplus, when, zipWithM) import Control.Monad.Except (catchError, throwError) -import Control.Monad.State (State, StateT, evalState, evalStateT, get, gets, +import Control.Monad.State.Strict (State, StateT, evalState, evalStateT, get, gets, lift, modify, put) import qualified Data.ByteString.Lazy as B import qualified Data.ByteString.Lazy.Char8 as B8 |