@@ -232,7 +232,7 @@ inline = (mempty <$ comment)
232 <|> (guardEnabled Ext_literate_haskell *> char '|' *> doLHSverb)
232 <|> (guardEnabled Ext_literate_haskell *> char '|' *> doLHSverb)
233 <|> (str . (:[]) <$> tildeEscape)
233 <|> (str . (:[]) <$> tildeEscape)
234 <|> (str . (:[]) <$> oneOf "[]")
234 <|> (str . (:[]) <$> oneOf "[]")
235− <|> (str . (:[]) <$> oneOf "#&") -- TODO print warning?
235+ <|> (str . (:[]) <$> oneOf "#&~^'`\"[]") -- TODO print warning?
236 -- <|> (str <$> count 1 (satisfy (\c -> c /= '\\' && c /='\n' && c /='}' && c /='{'))) -- eat random leftover characters
236 -- <|> (str <$> count 1 (satisfy (\c -> c /= '\\' && c /='\n' && c /='}' && c /='{'))) -- eat random leftover characters
238inlines :: LP Inlines
238inlines :: LP Inlines