@@ -103,7 +103,7 @@ import qualified Data.Text as T
103103import Data.Text (Text)
104104import Data.Text.Encoding (encodeUtf8)
105105import Text.Pandoc.Compat.Monoid ((<>), Monoid(..))
106−import Data.List (intersperse, nub)
106+import Data.List (intersperse)
107107import System.FilePath ((</>), (<.>))
108108import qualified Data.Map as M
109109import qualified Data.HashMap.Strict as H
@@ -116,7 +116,7 @@ import Text.Blaze.Internal (preEscapedText)
116116import Text.Blaze (preEscapedText, Html)
117117#endif
118118import Data.ByteString.Lazy (ByteString, fromChunks)
119−import Text.Pandoc.Shared (readDataFileUTF8)
119+import Text.Pandoc.Shared (readDataFileUTF8, ordNub)
120120import Data.Vector ((!?))
121121
122122-- | Get default template for the specified writer.
@@ -163,7 +163,7 @@ varListToJSON assoc = toJSON $ M.fromList assoc'
163163 where assoc' = [(T.pack k, toVal [T.pack z | (y,z) <- assoc,
164164 not (null z),
165165 y == k])
166− | k <- nub $ map fst assoc ]
166+ | k <- ordNub $ map fst assoc ]
167167 toVal [x] = toJSON x
168168 toVal [] = Null
169169 toVal xs = toJSON xs