@@ -1,5 +1,7 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveFunctor #-}
4+{-# LANGUAGE DeriveTraversable #-}
35{-# LANGUAGE TypeOperators #-}
46{-# OPTIONS_HADDOCK not-home #-}
57module Servant.API.Alternative ((:<|>)(..)) where
@@ -17,7 +19,7 @@ import Data.Typeable (Typeable)
1719-- :<|> "books" :> ReqBody '[JSON] Book :> Post '[JSON] () -- POST /books
1820-- :}
1921data a :<|> b = a :<|> b
20− deriving (Typeable, Eq, Show)
22+ deriving (Typeable, Eq, Show, Functor, Traversable, Foldable, Bounded)
2123infixr 8 :<|>
2224
2325instance (Monoid a, Monoid b) => Monoid (a :<|> b) where