changed fixity to be inline with base (#33)
commit1ee8769e18606e42c4f431ac9c257cfedfec03f8
authoriko <ilyakooo0@gmail.com>
dateSat 15 Feb 2020, 16:54 (7 years ago)
parent5a0a9c1
src/Control/Arrow/Extra/ArrowChoice.hs+2−2
@@ -9,9 +9,9 @@ import Control.Arrow.Extra.BaseArrow
99import Control.Category
1010import Data.Either
1111
12−infixl 2 +++
12+infixr 2 +++
1313
14−infixl 2 |||
14+infixr 2 |||
1515
1616class BaseArrow a => ArrowChoice a where
1717 left :: a b c -> a (Either b d) (Either c d)
src/Control/Arrow/Extra/ArrowPlus.hs+1−1
@@ -5,7 +5,7 @@ where
55
66import Control.Arrow.Extra.ArrowZero
77
8−infixl 5 <+>
8+infixr 5 <+>
99
1010class ArrowZero a => ArrowPlus a where
1111 (<+>) :: a b c -> a b c -> a b c
src/Control/Arrow/Extra/BaseArrow.hs+2−2
@@ -7,9 +7,9 @@ where
77
88import Control.Category
99
10−infixl 3 ***
10+infixr 3 ***
1111
12−infixl 3 &&&
12+infixr 3 &&&
1313
1414class Category a => BaseArrow a where
1515 {-# MINIMAL (***), (&&&) #-}