@@ -50,6 +50,7 @@ import Text.Pandoc.Shared (safeRead)
5050import Control.Monad (mzero, void, when)
5151import Data.Char (toLower)
5252import Data.List (intersperse)
53+import Data.Maybe (fromMaybe)
5354import qualified Data.Map as M
5455import Network.HTTP (urlEncode)
5556
@@ -191,16 +192,12 @@ parseFormat = try $ replacePlain <|> replaceUrl <|> justAppend
191192
192193setEmphasisPreChar :: Maybe [Char] -> OrgParserState -> OrgParserState
193194setEmphasisPreChar csMb st =
194− let preChars = case csMb of
195− Nothing -> orgStateEmphasisPreChars defaultOrgParserState
196− Just cs -> cs
195+ let preChars = fromMaybe (orgStateEmphasisPostChars defaultOrgParserState) csMb
197196 in st { orgStateEmphasisPreChars = preChars }
198197
199198setEmphasisPostChar :: Maybe [Char] -> OrgParserState -> OrgParserState
200199setEmphasisPostChar csMb st =
201− let postChars = case csMb of
202− Nothing -> orgStateEmphasisPostChars defaultOrgParserState
203− Just cs -> cs
200+ let postChars = fromMaybe (orgStateEmphasisPostChars defaultOrgParserState) csMb
204201 in st { orgStateEmphasisPostChars = postChars }
205202
206203emphChars :: Monad m => OrgParser m (Maybe [Char])