markdown-pap-0.0.1.1: src/Text/Markdown/Pap/Text.hs

module Text.Markdown.Pap.Text (
	Text(..), List, List1(..), Address, Title) where

data Text
	= Header Int String
	| Paras [String]
	| Code String
	| List List
	| Link String Address Title
	deriving Show

-- type TextString = [TextString1]
-- data TextString1 = Str String | Link String Address Title deriving Show
-- or
-- data TextString1 = Str String | Text Text deriving Show

type List = [List1]
data List1 = OrdItem String List | BulItem String List deriving Show

type Address = String
type Title = String