1f20f77 · typeable/pandoc

src/Tests/Helpers.hs+1−1

compare with master

unifiedsplit

@@ -79,7 +79,7 @@ vivid s = setSGRCode [SetColor Background Dull Red

79 , SetColor Foreground Vivid White] ++ s

80 ++ setSGRCode [Reset]

81

82−infix 6 =?>

82+infix 5 =?>

83(=?>) :: a -> b -> (a,b)

84x =?> y = (x, y)

85

src/Tests/Readers/LaTeX.hs+1−1

@@ -12,7 +12,7 @@ import Data.Monoid (mempty)

12latex :: String -> Pandoc

13latex = readLaTeX defaultParserState

14

15−infix 5 =:

15+infix 4 =:

16(=:) :: ToString c

17 => String -> (String, c) -> Test

18(=:) = test latex

src/Tests/Readers/Markdown.hs+1−1

@@ -15,7 +15,7 @@ markdown = readMarkdown defaultParserState{ stateStandalone = True }

15markdownSmart :: String -> Pandoc

16markdownSmart = readMarkdown defaultParserState{ stateSmart = True }

17

18−infix 5 =:

18+infix 4 =:

19(=:) :: ToString c

20 => String -> (String, c) -> Test

21(=:) = test markdown

src/Tests/Readers/RST.hs+1−1

@@ -11,7 +11,7 @@ import Text.Pandoc

11rst :: String -> Pandoc

12rst = readRST defaultParserState{ stateStandalone = True }

13

14−infix 5 =:

14+infix 4 =:

15(=:) :: ToString c

16 => String -> (String, c) -> Test

17(=:) = test rst

src/Tests/Writers/ConTeXt.hs+1−1

@@ -26,7 +26,7 @@ which is in turn shorthand for

26 test context "my test" (X,Y)

27-}

28

29−infix 5 =:

29+infix 4 =:

30(=:) :: (ToString a, ToPandoc a)

31 => String -> (a, String) -> Test

32(=:) = test context

src/Tests/Writers/HTML.hs+1−1

@@ -23,7 +23,7 @@ which is in turn shorthand for

23 test html "my test" (X,Y)

24-}

25

26−infix 5 =:

26+infix 4 =:

27(=:) :: (ToString a, ToPandoc a)

28 => String -> (a, String) -> Test

29(=:) = test html

src/Tests/Writers/Markdown.hs+1−1

@@ -22,7 +22,7 @@ which is in turn shorthand for

22 test markdown "my test" (X,Y)

23-}

24

25−infix 5 =:

25+infix 4 =:

26(=:) :: (ToString a, ToPandoc a)

27 => String -> (a, String) -> Test

28(=:) = test markdown