git.iko.soy/servant
on master help sign in
Lower Sub and Alternative infix precedence to 4 and 3 respectively
505ca45Catherine Galkina
servant/src/Servant/API/Alternative.hs+1−1
compare with master
unifiedsplit
@@ -22,7 +22,7 @@ import Prelude.Compat
22-- :}
22-- :}
23data a :<|> b = a :<|> b
23data a :<|> b = a :<|> b
24 deriving (Typeable, Eq, Show, Functor, Traversable, Foldable, Bounded)
24 deriving (Typeable, Eq, Show, Functor, Traversable, Foldable, Bounded)
25−infixr 8 :<|>
25+infixr 3 :<|>
26
26
27instance (Semigroup a, Semigroup b) => Semigroup (a :<|> b) where
27instance (Semigroup a, Semigroup b) => Semigroup (a :<|> b) where
28 (a :<|> b) <> (a' :<|> b') = (a <> a') :<|> (b <> b')
28 (a :<|> b) <> (a' :<|> b') = (a <> a') :<|> (b <> b')
servant/src/Servant/API/Sub.hs+1−1
@@ -16,7 +16,7 @@ import Data.Typeable (Typeable)
16-- >>> type MyApi = "hello" :> "world" :> Get '[JSON] World
16-- >>> type MyApi = "hello" :> "world" :> Get '[JSON] World
17data (path :: k) :> a
17data (path :: k) :> a
18 deriving (Typeable)
18 deriving (Typeable)
19−infixr 9 :>
19+infixr 4 :>
20
20
21-- $setup
21-- $setup
22-- >>> import Servant.API
22-- >>> import Servant.API