aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/FB2.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-06-16 23:29:37 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-06-17 07:45:28 +0200
commit9849ba7fd744f529f063e0802a18fa18c8433eeb (patch)
tree129de8b4a195535cd3868f43ba335c03c5d0b877 /src/Text/Pandoc/Writers/FB2.hs
parent23f3c2d7b4796d1af742a74999ce67924bf2abb3 (diff)
downloadpandoc-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/FB2.hs')
-rw-r--r--src/Text/Pandoc/Writers/FB2.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/FB2.hs b/src/Text/Pandoc/Writers/FB2.hs
index 213756330..20f94c185 100644
--- a/src/Text/Pandoc/Writers/FB2.hs
+++ b/src/Text/Pandoc/Writers/FB2.hs
@@ -38,8 +38,8 @@ FictionBook is an XML-based e-book format. For more information see:
module Text.Pandoc.Writers.FB2 (writeFB2) where
import Control.Monad.Except (catchError, throwError)
-import Control.Monad.State (StateT, evalStateT, get, lift, modify)
-import Control.Monad.State (liftM)
+import Control.Monad.State.Strict (StateT, evalStateT, get, lift, modify)
+import Control.Monad.State.Strict (liftM)
import Data.ByteString.Base64 (encode)
import qualified Data.ByteString.Char8 as B8
import Data.Char (isAscii, isControl, isSpace, toLower)