{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE TemplateHaskell #-}
module Text.MMark.Parser.Internal.Type
(
BlockState,
initialBlockState,
bstAllowNaked,
bstRefLevel,
bstDefs,
InlineState,
initialInlineState,
istLastChar,
istAllowEmpty,
istAllowLinks,
istAllowImages,
istDefs,
Isp (..),
CharType (..),
Defs,
referenceDefs,
DefLabel,
mkDefLabel,
unDefLabel,
MMarkErr (..),
)
where
import Control.DeepSeq
import Data.CaseInsensitive (CI)
import qualified Data.CaseInsensitive as CI
import Data.Data (Data)
import Data.HashMap.Strict (HashMap)
import qualified Data.HashMap.Strict as HM
import Data.Hashable (Hashable)
import Data.List (intercalate)
import Data.List.NonEmpty (NonEmpty (..))
import qualified Data.List.NonEmpty as NE
import Data.Proxy
import Data.Text (Text)
import qualified Data.Text as T
import Data.Typeable (Typeable)
import GHC.Generics
import Lens.Micro.TH
import Text.Megaparsec
import Text.URI (URI)
data BlockState = BlockState
{
BlockState -> Bool
_bstAllowNaked :: Bool,
BlockState -> Pos
_bstRefLevel :: Pos,
BlockState -> Defs
_bstDefs :: Defs
}
initialBlockState :: BlockState
initialBlockState :: BlockState
initialBlockState =
BlockState :: Bool -> Pos -> Defs -> BlockState
BlockState
{ _bstAllowNaked :: Bool
_bstAllowNaked = Bool
False,
_bstRefLevel :: Pos
_bstRefLevel = Pos
pos1,
_bstDefs :: Defs
_bstDefs = Defs
emptyDefs
}
data InlineState = InlineState
{
InlineState -> CharType
_istLastChar :: !CharType,
InlineState -> Bool
_istAllowEmpty :: Bool,
InlineState -> Bool
_istAllowLinks :: Bool,
InlineState -> Bool
_istAllowImages :: Bool,
InlineState -> Defs
_istDefs :: Defs
}
initialInlineState :: InlineState
initialInlineState :: InlineState
initialInlineState =
InlineState :: CharType -> Bool -> Bool -> Bool -> Defs -> InlineState
InlineState
{ _istLastChar :: CharType
_istLastChar = CharType
SpaceChar,
_istAllowEmpty :: Bool
_istAllowEmpty = Bool
True,
_istAllowLinks :: Bool
_istAllowLinks = Bool
True,
_istAllowImages :: Bool
_istAllowImages = Bool
True,
_istDefs :: Defs
_istDefs = Defs
emptyDefs
}
data Isp
=
IspSpan Int Text
|
IspError (ParseError Text MMarkErr)
deriving (Isp -> Isp -> Bool
(Isp -> Isp -> Bool) -> (Isp -> Isp -> Bool) -> Eq Isp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Isp -> Isp -> Bool
$c/= :: Isp -> Isp -> Bool
== :: Isp -> Isp -> Bool
$c== :: Isp -> Isp -> Bool
Eq, Int -> Isp -> ShowS
[Isp] -> ShowS
Isp -> String
(Int -> Isp -> ShowS)
-> (Isp -> String) -> ([Isp] -> ShowS) -> Show Isp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Isp] -> ShowS
$cshowList :: [Isp] -> ShowS
show :: Isp -> String
$cshow :: Isp -> String
showsPrec :: Int -> Isp -> ShowS
$cshowsPrec :: Int -> Isp -> ShowS
Show)
data CharType
=
SpaceChar
|
PunctChar
|
OtherChar
deriving (CharType -> CharType -> Bool
(CharType -> CharType -> Bool)
-> (CharType -> CharType -> Bool) -> Eq CharType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CharType -> CharType -> Bool
$c/= :: CharType -> CharType -> Bool
== :: CharType -> CharType -> Bool
$c== :: CharType -> CharType -> Bool
Eq, Eq CharType
Eq CharType
-> (CharType -> CharType -> Ordering)
-> (CharType -> CharType -> Bool)
-> (CharType -> CharType -> Bool)
-> (CharType -> CharType -> Bool)
-> (CharType -> CharType -> Bool)
-> (CharType -> CharType -> CharType)
-> (CharType -> CharType -> CharType)
-> Ord CharType
CharType -> CharType -> Bool
CharType -> CharType -> Ordering
CharType -> CharType -> CharType
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CharType -> CharType -> CharType
$cmin :: CharType -> CharType -> CharType
max :: CharType -> CharType -> CharType
$cmax :: CharType -> CharType -> CharType
>= :: CharType -> CharType -> Bool
$c>= :: CharType -> CharType -> Bool
> :: CharType -> CharType -> Bool
$c> :: CharType -> CharType -> Bool
<= :: CharType -> CharType -> Bool
$c<= :: CharType -> CharType -> Bool
< :: CharType -> CharType -> Bool
$c< :: CharType -> CharType -> Bool
compare :: CharType -> CharType -> Ordering
$ccompare :: CharType -> CharType -> Ordering
$cp1Ord :: Eq CharType
Ord, Int -> CharType -> ShowS
[CharType] -> ShowS
CharType -> String
(Int -> CharType -> ShowS)
-> (CharType -> String) -> ([CharType] -> ShowS) -> Show CharType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CharType] -> ShowS
$cshowList :: [CharType] -> ShowS
show :: CharType -> String
$cshow :: CharType -> String
showsPrec :: Int -> CharType -> ShowS
$cshowsPrec :: Int -> CharType -> ShowS
Show)
newtype Defs = Defs
{
Defs -> HashMap DefLabel (URI, Maybe Text)
_referenceDefs :: HashMap DefLabel (URI, Maybe Text)
}
emptyDefs :: Defs
emptyDefs :: Defs
emptyDefs =
Defs :: HashMap DefLabel (URI, Maybe Text) -> Defs
Defs
{ _referenceDefs :: HashMap DefLabel (URI, Maybe Text)
_referenceDefs = HashMap DefLabel (URI, Maybe Text)
forall k v. HashMap k v
HM.empty
}
newtype DefLabel = DefLabel (CI Text)
deriving (DefLabel -> DefLabel -> Bool
(DefLabel -> DefLabel -> Bool)
-> (DefLabel -> DefLabel -> Bool) -> Eq DefLabel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DefLabel -> DefLabel -> Bool
$c/= :: DefLabel -> DefLabel -> Bool
== :: DefLabel -> DefLabel -> Bool
$c== :: DefLabel -> DefLabel -> Bool
Eq, Eq DefLabel
Eq DefLabel
-> (DefLabel -> DefLabel -> Ordering)
-> (DefLabel -> DefLabel -> Bool)
-> (DefLabel -> DefLabel -> Bool)
-> (DefLabel -> DefLabel -> Bool)
-> (DefLabel -> DefLabel -> Bool)
-> (DefLabel -> DefLabel -> DefLabel)
-> (DefLabel -> DefLabel -> DefLabel)
-> Ord DefLabel
DefLabel -> DefLabel -> Bool
DefLabel -> DefLabel -> Ordering
DefLabel -> DefLabel -> DefLabel
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: DefLabel -> DefLabel -> DefLabel
$cmin :: DefLabel -> DefLabel -> DefLabel
max :: DefLabel -> DefLabel -> DefLabel
$cmax :: DefLabel -> DefLabel -> DefLabel
>= :: DefLabel -> DefLabel -> Bool
$c>= :: DefLabel -> DefLabel -> Bool
> :: DefLabel -> DefLabel -> Bool
$c> :: DefLabel -> DefLabel -> Bool
<= :: DefLabel -> DefLabel -> Bool
$c<= :: DefLabel -> DefLabel -> Bool
< :: DefLabel -> DefLabel -> Bool
$c< :: DefLabel -> DefLabel -> Bool
compare :: DefLabel -> DefLabel -> Ordering
$ccompare :: DefLabel -> DefLabel -> Ordering
$cp1Ord :: Eq DefLabel
Ord, Int -> DefLabel -> Int
DefLabel -> Int
(Int -> DefLabel -> Int) -> (DefLabel -> Int) -> Hashable DefLabel
forall a. (Int -> a -> Int) -> (a -> Int) -> Hashable a
hash :: DefLabel -> Int
$chash :: DefLabel -> Int
hashWithSalt :: Int -> DefLabel -> Int
$chashWithSalt :: Int -> DefLabel -> Int
Hashable)
mkDefLabel :: Text -> DefLabel
mkDefLabel :: Text -> DefLabel
mkDefLabel = CI Text -> DefLabel
DefLabel (CI Text -> DefLabel) -> (Text -> CI Text) -> Text -> DefLabel
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> CI Text
forall s. FoldCase s => s -> CI s
CI.mk (Text -> CI Text) -> (Text -> Text) -> Text -> CI Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Text] -> Text
T.unwords ([Text] -> Text) -> (Text -> [Text]) -> Text -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> [Text]
T.words
unDefLabel :: DefLabel -> Text
unDefLabel :: DefLabel -> Text
unDefLabel (DefLabel CI Text
x) = CI Text -> Text
forall s. CI s -> s
CI.original CI Text
x
data MMarkErr
=
YamlParseError String
|
NonFlankingDelimiterRun (NonEmpty Char)
|
ListStartIndexTooBig Word
|
ListIndexOutOfOrder Word Word
|
DuplicateReferenceDefinition Text
|
CouldNotFindReferenceDefinition Text [Text]
|
InvalidNumericCharacter Int
|
UnknownHtmlEntityName Text
deriving (MMarkErr -> MMarkErr -> Bool
(MMarkErr -> MMarkErr -> Bool)
-> (MMarkErr -> MMarkErr -> Bool) -> Eq MMarkErr
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MMarkErr -> MMarkErr -> Bool
$c/= :: MMarkErr -> MMarkErr -> Bool
== :: MMarkErr -> MMarkErr -> Bool
$c== :: MMarkErr -> MMarkErr -> Bool
Eq, Eq MMarkErr
Eq MMarkErr
-> (MMarkErr -> MMarkErr -> Ordering)
-> (MMarkErr -> MMarkErr -> Bool)
-> (MMarkErr -> MMarkErr -> Bool)
-> (MMarkErr -> MMarkErr -> Bool)
-> (MMarkErr -> MMarkErr -> Bool)
-> (MMarkErr -> MMarkErr -> MMarkErr)
-> (MMarkErr -> MMarkErr -> MMarkErr)
-> Ord MMarkErr
MMarkErr -> MMarkErr -> Bool
MMarkErr -> MMarkErr -> Ordering
MMarkErr -> MMarkErr -> MMarkErr
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MMarkErr -> MMarkErr -> MMarkErr
$cmin :: MMarkErr -> MMarkErr -> MMarkErr
max :: MMarkErr -> MMarkErr -> MMarkErr
$cmax :: MMarkErr -> MMarkErr -> MMarkErr
>= :: MMarkErr -> MMarkErr -> Bool
$c>= :: MMarkErr -> MMarkErr -> Bool
> :: MMarkErr -> MMarkErr -> Bool
$c> :: MMarkErr -> MMarkErr -> Bool
<= :: MMarkErr -> MMarkErr -> Bool
$c<= :: MMarkErr -> MMarkErr -> Bool
< :: MMarkErr -> MMarkErr -> Bool
$c< :: MMarkErr -> MMarkErr -> Bool
compare :: MMarkErr -> MMarkErr -> Ordering
$ccompare :: MMarkErr -> MMarkErr -> Ordering
$cp1Ord :: Eq MMarkErr
Ord, Int -> MMarkErr -> ShowS
[MMarkErr] -> ShowS
MMarkErr -> String
(Int -> MMarkErr -> ShowS)
-> (MMarkErr -> String) -> ([MMarkErr] -> ShowS) -> Show MMarkErr
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MMarkErr] -> ShowS
$cshowList :: [MMarkErr] -> ShowS
show :: MMarkErr -> String
$cshow :: MMarkErr -> String
showsPrec :: Int -> MMarkErr -> ShowS
$cshowsPrec :: Int -> MMarkErr -> ShowS
Show, ReadPrec [MMarkErr]
ReadPrec MMarkErr
Int -> ReadS MMarkErr
ReadS [MMarkErr]
(Int -> ReadS MMarkErr)
-> ReadS [MMarkErr]
-> ReadPrec MMarkErr
-> ReadPrec [MMarkErr]
-> Read MMarkErr
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MMarkErr]
$creadListPrec :: ReadPrec [MMarkErr]
readPrec :: ReadPrec MMarkErr
$creadPrec :: ReadPrec MMarkErr
readList :: ReadS [MMarkErr]
$creadList :: ReadS [MMarkErr]
readsPrec :: Int -> ReadS MMarkErr
$creadsPrec :: Int -> ReadS MMarkErr
Read, (forall x. MMarkErr -> Rep MMarkErr x)
-> (forall x. Rep MMarkErr x -> MMarkErr) -> Generic MMarkErr
forall x. Rep MMarkErr x -> MMarkErr
forall x. MMarkErr -> Rep MMarkErr x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep MMarkErr x -> MMarkErr
$cfrom :: forall x. MMarkErr -> Rep MMarkErr x
Generic, Typeable, Typeable MMarkErr
DataType
Constr
Typeable MMarkErr
-> (forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> MMarkErr -> c MMarkErr)
-> (forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c MMarkErr)
-> (MMarkErr -> Constr)
-> (MMarkErr -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c MMarkErr))
-> (forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MMarkErr))
-> ((forall b. Data b => b -> b) -> MMarkErr -> MMarkErr)
-> (forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r)
-> (forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r)
-> (forall u. (forall d. Data d => d -> u) -> MMarkErr -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> MMarkErr -> u)
-> (forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr)
-> Data MMarkErr
MMarkErr -> DataType
MMarkErr -> Constr
(forall b. Data b => b -> b) -> MMarkErr -> MMarkErr
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> MMarkErr -> c MMarkErr
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c MMarkErr
forall a.
Typeable a
-> (forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> MMarkErr -> u
forall u. (forall d. Data d => d -> u) -> MMarkErr -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c MMarkErr
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> MMarkErr -> c MMarkErr
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c MMarkErr)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MMarkErr)
$cUnknownHtmlEntityName :: Constr
$cInvalidNumericCharacter :: Constr
$cCouldNotFindReferenceDefinition :: Constr
$cDuplicateReferenceDefinition :: Constr
$cListIndexOutOfOrder :: Constr
$cListStartIndexTooBig :: Constr
$cNonFlankingDelimiterRun :: Constr
$cYamlParseError :: Constr
$tMMarkErr :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
gmapMp :: (forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
gmapM :: (forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> MMarkErr -> m MMarkErr
gmapQi :: Int -> (forall d. Data d => d -> u) -> MMarkErr -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> MMarkErr -> u
gmapQ :: (forall d. Data d => d -> u) -> MMarkErr -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> MMarkErr -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> MMarkErr -> r
gmapT :: (forall b. Data b => b -> b) -> MMarkErr -> MMarkErr
$cgmapT :: (forall b. Data b => b -> b) -> MMarkErr -> MMarkErr
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MMarkErr)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MMarkErr)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c MMarkErr)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c MMarkErr)
dataTypeOf :: MMarkErr -> DataType
$cdataTypeOf :: MMarkErr -> DataType
toConstr :: MMarkErr -> Constr
$ctoConstr :: MMarkErr -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c MMarkErr
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c MMarkErr
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> MMarkErr -> c MMarkErr
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> MMarkErr -> c MMarkErr
$cp1Data :: Typeable MMarkErr
Data)
instance ShowErrorComponent MMarkErr where
showErrorComponent :: MMarkErr -> String
showErrorComponent = \case
YamlParseError String
str ->
String
"YAML parse error: " String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
str
NonFlankingDelimiterRun NonEmpty Char
dels ->
Proxy Text -> NonEmpty (Token Text) -> String
forall s. VisualStream s => Proxy s -> NonEmpty (Token s) -> String
showTokens (Proxy Text
forall k (t :: k). Proxy t
Proxy :: Proxy Text) NonEmpty Char
NonEmpty (Token Text)
dels
String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
" should be in left- or right- flanking position"
ListStartIndexTooBig Word
n ->
String
"ordered list start numbers must be nine digits or less, " String -> ShowS
forall a. [a] -> [a] -> [a]
++ Word -> String
forall a. Show a => a -> String
show Word
n
String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
" is too big"
ListIndexOutOfOrder Word
actual Word
expected ->
String
"list index is out of order: " String -> ShowS
forall a. [a] -> [a] -> [a]
++ Word -> String
forall a. Show a => a -> String
show Word
actual String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
", expected "
String -> ShowS
forall a. [a] -> [a] -> [a]
++ Word -> String
forall a. Show a => a -> String
show Word
expected
DuplicateReferenceDefinition Text
name ->
String
"duplicate reference definitions are not allowed: \""
String -> ShowS
forall a. [a] -> [a] -> [a]
++ Text -> String
T.unpack Text
name
String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
"\""
CouldNotFindReferenceDefinition Text
name [Text]
alts ->
String
"could not find a matching reference definition for \""
String -> ShowS
forall a. [a] -> [a] -> [a]
++ Text -> String
T.unpack Text
name
String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
"\""
String -> ShowS
forall a. [a] -> [a] -> [a]
++ case [Text] -> Maybe (NonEmpty Text)
forall a. [a] -> Maybe (NonEmpty a)
NE.nonEmpty [Text]
alts of
Maybe (NonEmpty Text)
Nothing -> String
""
Just NonEmpty Text
xs ->
String
"\nperhaps you meant "
String -> ShowS
forall a. [a] -> [a] -> [a]
++ NonEmpty String -> String
orList (ShowS
quote ShowS -> (Text -> String) -> Text -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> String
T.unpack (Text -> String) -> NonEmpty Text -> NonEmpty String
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> NonEmpty Text
xs)
String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
"?"
where
quote :: ShowS
quote String
x = String
"\"" String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
x String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
"\""
InvalidNumericCharacter Int
n ->
String
"invalid numeric character: " String -> ShowS
forall a. [a] -> [a] -> [a]
++ Int -> String
forall a. Show a => a -> String
show Int
n
UnknownHtmlEntityName Text
name ->
String
"unknown HTML5 entity name: \"" String -> ShowS
forall a. [a] -> [a] -> [a]
++ Text -> String
T.unpack Text
name String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
"\""
instance NFData MMarkErr
orList :: NonEmpty String -> String
orList :: NonEmpty String -> String
orList (String
x :| []) = String
x
orList (String
x :| [String
y]) = String
x String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
" or " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
y
orList NonEmpty String
xs = String -> [String] -> String
forall a. [a] -> [[a]] -> [a]
intercalate String
", " (NonEmpty String -> [String]
forall a. NonEmpty a -> [a]
NE.init NonEmpty String
xs) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
", or " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> NonEmpty String -> String
forall a. NonEmpty a -> a
NE.last NonEmpty String
xs
makeLenses ''BlockState
makeLenses ''InlineState
makeLenses ''Defs