git.iko.soy/typeable/pandoc
on master help sign in
Removed some redundant class constraints.
0b0a0e7John MacFarlane
src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs+3−3
compare with master
unifiedsplit
@@ -432,21 +432,21 @@ a ^>>?^? f = a ^>> Left ^|||^ f
432a >>?! f = a >>> right f
432a >>?! f = a >>> right f
433
433
434---
434---
435−(>>?%) :: (ArrowChoice a, Monoid f)
435+(>>?%) :: (ArrowChoice a)
436 => FallibleArrow a x f (b,b')
436 => FallibleArrow a x f (b,b')
437 -> (b -> b' -> c)
437 -> (b -> b' -> c)
438 -> FallibleArrow a x f c
438 -> FallibleArrow a x f c
439a >>?% f = a >>?^ (uncurry f)
439a >>?% f = a >>?^ (uncurry f)
440
440
441---
441---
442−(^>>?%) :: (ArrowChoice a, Monoid f)
442+(^>>?%) :: (ArrowChoice a)
443 => (x -> Either f (b,b'))
443 => (x -> Either f (b,b'))
444 -> (b -> b' -> c)
444 -> (b -> b' -> c)
445 -> FallibleArrow a x f c
445 -> FallibleArrow a x f c
446a ^>>?% f = arr a >>?^ (uncurry f)
446a ^>>?% f = arr a >>?^ (uncurry f)
447
447
448---
448---
449−(>>?%?) :: (ArrowChoice a, Monoid f)
449+(>>?%?) :: (ArrowChoice a)
450 => FallibleArrow a x f (b,b')
450 => FallibleArrow a x f (b,b')
451 -> (b -> b' -> (Either f c))
451 -> (b -> b' -> (Either f c))
452 -> FallibleArrow a x f c
452 -> FallibleArrow a x f c
tests/Tests/Writers/AsciiDoc.hs+1−1
@@ -6,7 +6,7 @@ import Text.Pandoc
6import Tests.Helpers
6import Tests.Helpers
7import Tests.Arbitrary()
7import Tests.Arbitrary()
8
8
9−asciidoc :: (ToString a, ToPandoc a) => a -> String
9+asciidoc :: (ToPandoc a) => a -> String
10asciidoc = writeAsciiDoc def{ writerWrapText = WrapNone } . toPandoc
10asciidoc = writeAsciiDoc def{ writerWrapText = WrapNone } . toPandoc
11
11
12tests :: [Test]
12tests :: [Test]
tests/Tests/Writers/ConTeXt.hs+2−2
@@ -7,10 +7,10 @@ import Text.Pandoc
7import Tests.Helpers
7import Tests.Helpers
8import Tests.Arbitrary()
8import Tests.Arbitrary()
9
9
10−context :: (ToString a, ToPandoc a) => a -> String
10+context :: (ToPandoc a) => a -> String
11context = writeConTeXt def . toPandoc
11context = writeConTeXt def . toPandoc
12
12
13−context' :: (ToString a, ToPandoc a) => a -> String
13+context' :: (ToPandoc a) => a -> String
14context' = writeConTeXt def{ writerWrapText = WrapNone } . toPandoc
14context' = writeConTeXt def{ writerWrapText = WrapNone } . toPandoc
15
15
16{-
16{-
tests/Tests/Writers/Docbook.hs+1−1
@@ -7,7 +7,7 @@ import Text.Pandoc
7import Tests.Helpers
7import Tests.Helpers
8import Tests.Arbitrary()
8import Tests.Arbitrary()
9
9
10−docbook :: (ToString a, ToPandoc a) => a -> String
10+docbook :: (ToPandoc a) => a -> String
11docbook = writeDocbook def{ writerWrapText = WrapNone } . toPandoc
11docbook = writeDocbook def{ writerWrapText = WrapNone } . toPandoc
12
12
13{-
13{-
tests/Tests/Writers/HTML.hs+1−1
@@ -7,7 +7,7 @@ import Text.Pandoc
7import Tests.Helpers
7import Tests.Helpers
8import Tests.Arbitrary()
8import Tests.Arbitrary()
9
9
10−html :: (ToString a, ToPandoc a) => a -> String
10+html :: (ToPandoc a) => a -> String
11html = writeHtmlString def{ writerWrapText = WrapNone } . toPandoc
11html = writeHtmlString def{ writerWrapText = WrapNone } . toPandoc
12
12
13{-
13{-
tests/Tests/Writers/LaTeX.hs+2−2
@@ -7,10 +7,10 @@ import Text.Pandoc
7import Tests.Helpers
7import Tests.Helpers
8import Tests.Arbitrary()
8import Tests.Arbitrary()
9
9
10−latex :: (ToString a, ToPandoc a) => a -> String
10+latex :: (ToPandoc a) => a -> String
11latex = writeLaTeX def{ writerHighlight = True } . toPandoc
11latex = writeLaTeX def{ writerHighlight = True } . toPandoc
12
12
13−latexListing :: (ToString a, ToPandoc a) => a -> String
13+latexListing :: (ToPandoc a) => a -> String
14latexListing = writeLaTeX def{ writerListings = True } . toPandoc
14latexListing = writeLaTeX def{ writerListings = True } . toPandoc
15
15
16{-
16{-
tests/Tests/Writers/Markdown.hs+1−1
@@ -8,7 +8,7 @@ import Text.Pandoc
8import Tests.Helpers
8import Tests.Helpers
9import Tests.Arbitrary()
9import Tests.Arbitrary()
10
10
11−markdown :: (ToString a, ToPandoc a) => a -> String
11+markdown :: (ToPandoc a) => a -> String
12markdown = writeMarkdown def . toPandoc
12markdown = writeMarkdown def . toPandoc
13
13
14{-
14{-