@@ -48,7 +48,6 @@ import Control.Monad (mzero, void)
4848import Data.Char (toLower)
4949import Data.List (intersperse)
5050import qualified Data.Map as M
51−import Data.Monoid ((<>))
5251import Network.HTTP (urlEncode)
5352
5453-- | Returns the current meta, respecting export options.
@@ -76,9 +75,7 @@ declarationLine :: PandocMonad m => OrgParser m ()
7675declarationLine = try $ do
7776 key <- map toLower <$> metaKey
7877 (key', value) <- metaValue key
79− updateState $ \st ->
80− let meta' = B.setMeta key' <$> value <*> pure nullMeta
81− in st { orgStateMeta = meta' <> orgStateMeta st }
78+ updateState $ \st -> st { orgStateMeta = B.setMeta key' <$> value <*> orgStateMeta st }
8279
8380metaKey :: Monad m => OrgParser m String
8481metaKey = map toLower <$> many1 (noneOf ": \n\r")