diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-07-14 08:54:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-07-14 08:54:06 -0700 |
| commit | 0b0a0e730fedf56a4ddafa9b6e4a03a6cfad3986 (patch) | |
| tree | fa7a4f9868457ea20f3f7d04228ebdaf627ef98b /src/Text | |
| parent | 3d86228c5b5c1d2d013a267e269fa9bdbc519e33 (diff) | |
| download | pandoc-0b0a0e730fedf56a4ddafa9b6e4a03a6cfad3986.tar.gz | |
Removed some redundant class constraints.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs | 6 |
1 files changed, 3 insertions, 3 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 |