1{-# LANGUAGE FlexibleInstances #-} 2{-# LANGUAGE OverloadedStrings #-} 3module Commonmark.Extensions.HardLineBreaks 4 ( hardLineBreaksSpec ) 5where 6import Commonmark.Types 7import Commonmark.Syntax 8import Commonmark.Inlines 9import Commonmark.TokParsers 10import Commonmark.Tokens 11 12hardLineBreaksSpec :: (Monad m, IsBlock il bl, IsInline il) 13 => SyntaxSpec m il bl 14hardLineBreaksSpec = mempty 15 { syntaxInlineParsers = [ hardLineBreakParser ] 16 } 17 18hardLineBreakParser :: (Monad m, IsInline a) => InlineParser m a 19hardLineBreakParser = lineBreak <$ satisfyTok (hasType LineEnd) 20 21