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