diff options
author | Sascha Wilde <wilde@sha-bang.de> | 2017-10-31 22:33:58 +0100 |
---|---|---|
committer | Sascha Wilde <wilde@sha-bang.de> | 2017-10-31 22:33:58 +0100 |
commit | 534e625ace6c2d94af5544591fab0a425445dfa3 (patch) | |
tree | f4403c442748f5d9c9141816dd985cb029014f41 /src/Text/Pandoc/Readers/Creole.hs | |
parent | 03361f0a685865d6e476dbd5a11ab75968af7b5c (diff) |
Creole reader: fixed some minor typos and formatting.
Diffstat (limited to 'src/Text/Pandoc/Readers/Creole.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Creole.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Creole.hs b/src/Text/Pandoc/Readers/Creole.hs index 53154f5e0..b4eb6eaef 100644 --- a/src/Text/Pandoc/Readers/Creole.hs +++ b/src/Text/Pandoc/Readers/Creole.hs @@ -27,7 +27,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA License : GNU GPL, version 2 or above Maintainer : Sascha Wilde <wilde@sha-bang.de> - Stability : WIP + Stability : alpha Portability : portable Conversion of creole text to 'Pandoc' document. @@ -64,7 +64,7 @@ readCreole opts s = do type CRLParser = ParserT [Char] ParserState -- --- Utility funcitons +-- Utility functions -- (<+>) :: (Monad m, Monoid a) => m a -> m a -> m a @@ -111,7 +111,8 @@ block = do return res nowiki :: PandocMonad m => CRLParser m B.Blocks -nowiki = try $ fmap (B.codeBlock . mconcat) (nowikiStart >> manyTill content nowikiEnd) +nowiki = try $ fmap (B.codeBlock . mconcat) (nowikiStart + >> manyTill content nowikiEnd) where content = brackets <|> line brackets = try $ option "" ((:[]) <$> newline) @@ -194,7 +195,7 @@ endOfParaElement = lookAhead $ endOfInput <|> endOfPara startOf :: PandocMonad m => CRLParser m a -> CRLParser m () startOf p = try $ blankline >> p >> return mempty startOfList = startOf $ anyList 1 - startOfTable =startOf table + startOfTable = startOf table startOfHeader = startOf header startOfNowiki = startOf nowiki hr = startOf horizontalRule |