compile :: Markup t a -> FastMarkup t
compile m = case runM 0 m of (m', _, _) -> compile_ m'

-- | Compile a 'Markup'. Don't run this multiple times!
--
-- Same as 'compile' but lets you use the result.
compile :: Markup t a -> FastMarkup t
compile m = case runM 0 m of (m', _, _) -> compile_ m'

-- | Compile a 'Markup'. Don't run this multiple times!
--
-- Same as 'compile' but lets you use the result.
compile m = case runM 0 m of (m', _, _) -> compile_ m'

-- | Compile a 'Markup'. Don't run this multiple times!
--
-- Same as 'compile' but lets you use the result.