diff options
author | George Punter <gsp14@ic.ac.uk> | 2018-03-22 20:00:58 +0000 |
---|---|---|
committer | George Punter <gsp14@ic.ac.uk> | 2018-03-22 20:00:58 +0000 |
commit | ab227ecdb6252aa36b33aedc7a525e4c52339755 (patch) | |
tree | 6a9abf5ab84a5044ee2c13c2b3d6f72f8b5b7823 /FMark | |
parent | c1b519bca807b411361c085b4dee3260573d7cf3 (diff) | |
download | FMark-ab227ecdb6252aa36b33aedc7a525e4c52339755.tar.gz FMark-ab227ecdb6252aa36b33aedc7a525e4c52339755.zip |
remove broken code tidy
Diffstat (limited to 'FMark')
-rw-r--r-- | FMark/src/Common/Parser/ParserHelperFuncs.fs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FMark/src/Common/Parser/ParserHelperFuncs.fs b/FMark/src/Common/Parser/ParserHelperFuncs.fs index 100d8dc..a2894cb 100644 --- a/FMark/src/Common/Parser/ParserHelperFuncs.fs +++ b/FMark/src/Common/Parser/ParserHelperFuncs.fs @@ -437,7 +437,8 @@ let parseInLineElements2 refLst toks = match toks with | MatchSym BACKTICK (content, rtks) -> (content|> strAllToks|> Code|> FrmtedString )::currentLine, rtks | MatchStrongAndEm (content, rtks, frontLiteral, backLiteral) -> - styleHelper (Strong << FrmtedString << makeList << Emphasis) (content, rtks, frontLiteral, backLiteral) + let inlineContent = (parseInLines [] content |> Strong |> FrmtedString |> makeList |> Emphasis |> FrmtedString) + genFormat (currentLine, inlineContent, frontLiteral, backLiteral), rtks | MatchStrong (content, rtks, frontLiteral, backLiteral) -> styleHelper Strong (content, rtks, frontLiteral, backLiteral) | MatchEm (content, rtks, frontLiteral, backLiteral) -> |