Backend (getCurrent,getList,get,setCurrent,update)
,PGB
,createPGB
- ,Markup (Text, Paragraph, Link, Bold, Emph, Heading, Url, Underline, Strike)
+ ,Markup (Text, Paragraph, Link, Bold, Emph, Heading, Url, Underline, Strike, Pre)
,Document
,wikiParser
| Url String
| Underline [Markup]
| Strike [Markup]
+ | Pre String
type Document = [Markup]
string "://"
s <- many1 (alphaNum <|> oneOf "?.:&-/")
return (Url (proto++"://"++s))
+
+pPre = do
+ string "<pre>"
+ s <- pString "</pre>"
+ return (Pre s)
pMain = try (pHeading)
<|> (try (pPara)
<|> pSpace
+ <|> try(pPre)
<|> try(pBold)
<|> try(pEmph)
<|> try(pUnderline)