@@ -27,7 +27,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2727 License : GNU GPL, version 2 or above
2828
2929 Maintainer : Sascha Wilde <wilde@sha-bang.de>
30− Stability : WIP
30+ Stability : alpha
3131 Portability : portable
3232
3333Conversion of creole text to 'Pandoc' document.
@@ -64,7 +64,7 @@ readCreole opts s = do
6464type CRLParser = ParserT [Char] ParserState
6565
6666--
67−-- Utility funcitons
67+-- Utility functions
6868--
6969
7070(<+>) :: (Monad m, Monoid a) => m a -> m a -> m a
@@ -111,7 +111,8 @@ block = do
111111 return res
112112
113113nowiki :: PandocMonad m => CRLParser m B.Blocks
114−nowiki = try $ fmap (B.codeBlock . mconcat) (nowikiStart >> manyTill content nowikiEnd)
114+nowiki = try $ fmap (B.codeBlock . mconcat) (nowikiStart
115+ >> manyTill content nowikiEnd)
115116 where
116117 content = brackets <|> line
117118 brackets = try $ option "" ((:[]) <$> newline)
@@ -194,7 +195,7 @@ endOfParaElement = lookAhead $ endOfInput <|> endOfPara
194195 startOf :: PandocMonad m => CRLParser m a -> CRLParser m ()
195196 startOf p = try $ blankline >> p >> return mempty
196197 startOfList = startOf $ anyList 1
197− startOfTable =startOf table
198+ startOfTable = startOf table
198199 startOfHeader = startOf header
199200 startOfNowiki = startOf nowiki
200201 hr = startOf horizontalRule