diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs | 6 | ||||
| -rw-r--r-- | tests/Tests/Writers/AsciiDoc.hs | 2 | ||||
| -rw-r--r-- | tests/Tests/Writers/ConTeXt.hs | 4 | ||||
| -rw-r--r-- | tests/Tests/Writers/Docbook.hs | 2 | ||||
| -rw-r--r-- | tests/Tests/Writers/HTML.hs | 2 | ||||
| -rw-r--r-- | tests/Tests/Writers/LaTeX.hs | 4 | ||||
| -rw-r--r-- | tests/Tests/Writers/Markdown.hs | 2 |
7 files changed, 11 insertions, 11 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs b/src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs index ad71cf08d..fca2575c2 100644 --- a/src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs +++ b/src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs @@ -432,21 +432,21 @@ a ^>>?^? f = a ^>> Left ^|||^ f a >>?! f = a >>> right f --- -(>>?%) :: (ArrowChoice a, Monoid f) +(>>?%) :: (ArrowChoice a) => FallibleArrow a x f (b,b') -> (b -> b' -> c) -> FallibleArrow a x f c a >>?% f = a >>?^ (uncurry f) --- -(^>>?%) :: (ArrowChoice a, Monoid f) +(^>>?%) :: (ArrowChoice a) => (x -> Either f (b,b')) -> (b -> b' -> c) -> FallibleArrow a x f c a ^>>?% f = arr a >>?^ (uncurry f) --- -(>>?%?) :: (ArrowChoice a, Monoid f) +(>>?%?) :: (ArrowChoice a) => FallibleArrow a x f (b,b') -> (b -> b' -> (Either f c)) -> FallibleArrow a x f c diff --git a/tests/Tests/Writers/AsciiDoc.hs b/tests/Tests/Writers/AsciiDoc.hs index 1b0a8de66..0062667cf 100644 --- a/tests/Tests/Writers/AsciiDoc.hs +++ b/tests/Tests/Writers/AsciiDoc.hs @@ -6,7 +6,7 @@ import Text.Pandoc import Tests.Helpers import Tests.Arbitrary() -asciidoc :: (ToString a, ToPandoc a) => a -> String +asciidoc :: (ToPandoc a) => a -> String asciidoc = writeAsciiDoc def{ writerWrapText = WrapNone } . toPandoc tests :: [Test] diff --git a/tests/Tests/Writers/ConTeXt.hs b/tests/Tests/Writers/ConTeXt.hs index d44b15658..5098a5fee 100644 --- a/tests/Tests/Writers/ConTeXt.hs +++ b/tests/Tests/Writers/ConTeXt.hs @@ -7,10 +7,10 @@ import Text.Pandoc import Tests.Helpers import Tests.Arbitrary() -context :: (ToString a, ToPandoc a) => a -> String +context :: (ToPandoc a) => a -> String context = writeConTeXt def . toPandoc -context' :: (ToString a, ToPandoc a) => a -> String +context' :: (ToPandoc a) => a -> String context' = writeConTeXt def{ writerWrapText = WrapNone } . toPandoc {- diff --git a/tests/Tests/Writers/Docbook.hs b/tests/Tests/Writers/Docbook.hs index b1ac35980..2c0ff6179 100644 --- a/tests/Tests/Writers/Docbook.hs +++ b/tests/Tests/Writers/Docbook.hs @@ -7,7 +7,7 @@ import Text.Pandoc import Tests.Helpers import Tests.Arbitrary() -docbook :: (ToString a, ToPandoc a) => a -> String +docbook :: (ToPandoc a) => a -> String docbook = writeDocbook def{ writerWrapText = WrapNone } . toPandoc {- diff --git a/tests/Tests/Writers/HTML.hs b/tests/Tests/Writers/HTML.hs index 53ed95fc7..9b612e446 100644 --- a/tests/Tests/Writers/HTML.hs +++ b/tests/Tests/Writers/HTML.hs @@ -7,7 +7,7 @@ import Text.Pandoc import Tests.Helpers import Tests.Arbitrary() -html :: (ToString a, ToPandoc a) => a -> String +html :: (ToPandoc a) => a -> String html = writeHtmlString def{ writerWrapText = WrapNone } . toPandoc {- diff --git a/tests/Tests/Writers/LaTeX.hs b/tests/Tests/Writers/LaTeX.hs index 05dfcbd3d..4a1232db2 100644 --- a/tests/Tests/Writers/LaTeX.hs +++ b/tests/Tests/Writers/LaTeX.hs @@ -7,10 +7,10 @@ import Text.Pandoc import Tests.Helpers import Tests.Arbitrary() -latex :: (ToString a, ToPandoc a) => a -> String +latex :: (ToPandoc a) => a -> String latex = writeLaTeX def{ writerHighlight = True } . toPandoc -latexListing :: (ToString a, ToPandoc a) => a -> String +latexListing :: (ToPandoc a) => a -> String latexListing = writeLaTeX def{ writerListings = True } . toPandoc {- diff --git a/tests/Tests/Writers/Markdown.hs b/tests/Tests/Writers/Markdown.hs index 8ffd7a8c0..1c27ebdf4 100644 --- a/tests/Tests/Writers/Markdown.hs +++ b/tests/Tests/Writers/Markdown.hs @@ -8,7 +8,7 @@ import Text.Pandoc import Tests.Helpers import Tests.Arbitrary() -markdown :: (ToString a, ToPandoc a) => a -> String +markdown :: (ToPandoc a) => a -> String markdown = writeMarkdown def . toPandoc {- |