@@ -117,6 +117,7 @@ import Text.Blaze (preEscapedText, Html)
117117#endif
118118import Data.ByteString.Lazy (ByteString, fromChunks)
119119import Text.Pandoc.Shared (readDataFileUTF8)
120+import Data.Vector ((!?))
120121
121122-- | Get default template for the specified writer.
122123getDefaultTemplate :: (Maybe FilePath) -- ^ User data directory to search first
@@ -185,7 +186,7 @@ var = Template . resolveVar
185186resolveVar :: Variable -> Value -> Text
186187resolveVar var' val =
187188 case multiLookup var' val of
188− Just (Array vec) -> mconcat $ map (resolveVar []) $ toList vec
189+ Just (Array vec) -> maybe mempty (resolveVar []) $ vec !? 0
189190 Just (String t) -> T.stripEnd t
190191 Just (Number n) -> T.pack $ show n
191192 Just (Bool True) -> "true"