Lower Sub and Alternative infix precedence to 4 and 3 respectively
commit505ca457cc6830f8b9758e22d706a4d3c3b0da22
authorCatherine Galkina <catherine@getshoptv.com>
dateFri 2 Jun 2017, 18:11 (9 years ago)
parentcc13d62
servant/src/Servant/API/Alternative.hs+1−1
@@ -22,7 +22,7 @@ import Prelude.Compat
2222-- :}
2323data a :<|> b = a :<|> b
2424 deriving (Typeable, Eq, Show, Functor, Traversable, Foldable, Bounded)
25−infixr 8 :<|>
25+infixr 3 :<|>
2626
2727instance (Semigroup a, Semigroup b) => Semigroup (a :<|> b) where
2828 (a :<|> b) <> (a' :<|> b') = (a <> a') :<|> (b <> b')
servant/src/Servant/API/Sub.hs+1−1
@@ -16,7 +16,7 @@ import Data.Typeable (Typeable)
1616-- >>> type MyApi = "hello" :> "world" :> Get '[JSON] World
1717data (path :: k) :> a
1818 deriving (Typeable)
19−infixr 9 :>
19+infixr 4 :>
2020
2121-- $setup
2222-- >>> import Servant.API