1f20f77 · typeable/pandoc

git.iko.soy/typeable/pandoc

Changed infix level of testing combinators.

This avoids clash with (<>), which is defined in Data.Monoid as having infix 6.

commit1f20f77712e31fa554b0c435a9d0376c4d4138d6 authorJohn MacFarlane <fiddlosopher@gmail.com> dateSun 5 Feb 2012, 13:23 (15 years ago) parent9bf32a7

7 files changed+7−7

compare with master

unifiedsplit

src/Tests/Helpers.hs+1−1 src/Tests/Readers/LaTeX.hs+1−1 src/Tests/Readers/Markdown.hs+1−1 src/Tests/Readers/RST.hs+1−1 src/Tests/Writers/ConTeXt.hs+1−1 src/Tests/Writers/HTML.hs+1−1 src/Tests/Writers/Markdown.hs+1−1

src/Tests/Helpers.hs+1−1

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

7979 , SetColor Foreground Vivid White] ++ s

8080 ++ setSGRCode [Reset]

8181

82−infix 6 =?>

82+infix 5 =?>

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

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

8585

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

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

1212latex :: String -> Pandoc

1313latex = readLaTeX defaultParserState

1414

15−infix 5 =:

15+infix 4 =:

1616(=:) :: ToString c

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

1818(=:) = test latex

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

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

1515markdownSmart :: String -> Pandoc

1616markdownSmart = readMarkdown defaultParserState{ stateSmart = True }

1717

18−infix 5 =:

18+infix 4 =:

1919(=:) :: ToString c

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

2121(=:) = test markdown

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

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

1111rst :: String -> Pandoc

1212rst = readRST defaultParserState{ stateStandalone = True }

1313

14−infix 5 =:

14+infix 4 =:

1515(=:) :: ToString c

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

1717(=:) = test rst

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

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

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

2727-}

2828

29−infix 5 =:

29+infix 4 =:

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

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

3232(=:) = test context

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

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

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

2424-}

2525

26−infix 5 =:

26+infix 4 =:

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

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

2929(=:) = test html

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

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

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

2323-}

2424

25−infix 5 =:

25+infix 4 =:

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

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

2828(=:) = test markdown