@@ -103,7 +103,7 @@ import qualified Data.Text as T
103import Data.Text (Text)
103import Data.Text (Text)
104import Data.Text.Encoding (encodeUtf8)
104import Data.Text.Encoding (encodeUtf8)
105import Text.Pandoc.Compat.Monoid ((<>), Monoid(..))
105import Text.Pandoc.Compat.Monoid ((<>), Monoid(..))
106−import Data.List (intersperse, nub)
106+import Data.List (intersperse)
107import System.FilePath ((</>), (<.>))
107import System.FilePath ((</>), (<.>))
108import qualified Data.Map as M
108import qualified Data.Map as M
109import qualified Data.HashMap.Strict as H
109import qualified Data.HashMap.Strict as H
@@ -116,7 +116,7 @@ import Text.Blaze.Internal (preEscapedText)
116import Text.Blaze (preEscapedText, Html)
116import Text.Blaze (preEscapedText, Html)
118import Data.ByteString.Lazy (ByteString, fromChunks)
118import Data.ByteString.Lazy (ByteString, fromChunks)
119−import Text.Pandoc.Shared (readDataFileUTF8)
119+import Text.Pandoc.Shared (readDataFileUTF8, ordNub)
120import Data.Vector ((!?))
120import Data.Vector ((!?))
122-- | Get default template for the specified writer.
122-- | Get default template for the specified writer.
@@ -163,7 +163,7 @@ varListToJSON assoc = toJSON $ M.fromList assoc'
163 where assoc' = [(T.pack k, toVal [T.pack z | (y,z) <- assoc,
163 where assoc' = [(T.pack k, toVal [T.pack z | (y,z) <- assoc,
164 not (null z),
164 not (null z),
166− | k <- nub $ map fst assoc ]
166+ | k <- ordNub $ map fst assoc ]
167 toVal [x] = toJSON x
167 toVal [x] = toJSON x
168 toVal [] = Null
168 toVal [] = Null
169 toVal xs = toJSON xs
169 toVal xs = toJSON xs