git.iko.soy/typeable/pandoc
on master help sign in
Removed some redundant class constraints.
commit0b0a0e730fedf56a4ddafa9b6e4a03a6cfad3986 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 14 Jul 2016, 08:54 (10 years ago) parent3d86228
7 files changed+11−11
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs+3−3 tests/Tests/Writers/AsciiDoc.hs+1−1 tests/Tests/Writers/ConTeXt.hs+2−2 tests/Tests/Writers/Docbook.hs+1−1 tests/Tests/Writers/HTML.hs+1−1 tests/Tests/Writers/LaTeX.hs+2−2 tests/Tests/Writers/Markdown.hs+1−1
src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs+3−3
@@ -432,21 +432,21 @@ a ^>>?^? f = a ^>> Left ^|||^ f
432432a >>?! f = a >>> right f
433433
434434---
435−(>>?%) :: (ArrowChoice a, Monoid f)
435+(>>?%) :: (ArrowChoice a)
436436 => FallibleArrow a x f (b,b')
437437 -> (b -> b' -> c)
438438 -> FallibleArrow a x f c
439439a >>?% f = a >>?^ (uncurry f)
440440
441441---
442−(^>>?%) :: (ArrowChoice a, Monoid f)
442+(^>>?%) :: (ArrowChoice a)
443443 => (x -> Either f (b,b'))
444444 -> (b -> b' -> c)
445445 -> FallibleArrow a x f c
446446a ^>>?% f = arr a >>?^ (uncurry f)
447447
448448---
449−(>>?%?) :: (ArrowChoice a, Monoid f)
449+(>>?%?) :: (ArrowChoice a)
450450 => FallibleArrow a x f (b,b')
451451 -> (b -> b' -> (Either f c))
452452 -> FallibleArrow a x f c
tests/Tests/Writers/AsciiDoc.hs+1−1
@@ -6,7 +6,7 @@ import Text.Pandoc
66import Tests.Helpers
77import Tests.Arbitrary()
88
9−asciidoc :: (ToString a, ToPandoc a) => a -> String
9+asciidoc :: (ToPandoc a) => a -> String
1010asciidoc = writeAsciiDoc def{ writerWrapText = WrapNone } . toPandoc
1111
1212tests :: [Test]
tests/Tests/Writers/ConTeXt.hs+2−2
@@ -7,10 +7,10 @@ import Text.Pandoc
77import Tests.Helpers
88import Tests.Arbitrary()
99
10−context :: (ToString a, ToPandoc a) => a -> String
10+context :: (ToPandoc a) => a -> String
1111context = writeConTeXt def . toPandoc
1212
13−context' :: (ToString a, ToPandoc a) => a -> String
13+context' :: (ToPandoc a) => a -> String
1414context' = writeConTeXt def{ writerWrapText = WrapNone } . toPandoc
1515
1616{-
tests/Tests/Writers/Docbook.hs+1−1
@@ -7,7 +7,7 @@ import Text.Pandoc
77import Tests.Helpers
88import Tests.Arbitrary()
99
10−docbook :: (ToString a, ToPandoc a) => a -> String
10+docbook :: (ToPandoc a) => a -> String
1111docbook = writeDocbook def{ writerWrapText = WrapNone } . toPandoc
1212
1313{-
tests/Tests/Writers/HTML.hs+1−1
@@ -7,7 +7,7 @@ import Text.Pandoc
77import Tests.Helpers
88import Tests.Arbitrary()
99
10−html :: (ToString a, ToPandoc a) => a -> String
10+html :: (ToPandoc a) => a -> String
1111html = writeHtmlString def{ writerWrapText = WrapNone } . toPandoc
1212
1313{-
tests/Tests/Writers/LaTeX.hs+2−2
@@ -7,10 +7,10 @@ import Text.Pandoc
77import Tests.Helpers
88import Tests.Arbitrary()
99
10−latex :: (ToString a, ToPandoc a) => a -> String
10+latex :: (ToPandoc a) => a -> String
1111latex = writeLaTeX def{ writerHighlight = True } . toPandoc
1212
13−latexListing :: (ToString a, ToPandoc a) => a -> String
13+latexListing :: (ToPandoc a) => a -> String
1414latexListing = writeLaTeX def{ writerListings = True } . toPandoc
1515
1616{-
tests/Tests/Writers/Markdown.hs+1−1
@@ -8,7 +8,7 @@ import Text.Pandoc
88import Tests.Helpers
99import Tests.Arbitrary()
1010
11−markdown :: (ToString a, ToPandoc a) => a -> String
11+markdown :: (ToPandoc a) => a -> String
1212markdown = writeMarkdown def . toPandoc
1313
1414{-