@@ -55,6 +55,7 @@ import Servant.Swagger.Internal.Orphans ()
55-- >>> import Data.Typeable
55-- >>> import Data.Typeable
56-- >>> import GHC.Generics
56-- >>> import GHC.Generics
57-- >>> import Servant.API
57-- >>> import Servant.API
58+-- >>> import System.Environment
58-- >>> import Test.Hspec
59-- >>> import Test.Hspec
59-- >>> import Test.QuickCheck
60-- >>> import Test.QuickCheck
60-- >>> import qualified Data.ByteString.Lazy.Char8 as BSL8
61-- >>> import qualified Data.ByteString.Lazy.Char8 as BSL8
@@ -64,6 +65,7 @@ import Servant.Swagger.Internal.Orphans ()
64-- >>> :set -XGeneralizedNewtypeDeriving
65-- >>> :set -XGeneralizedNewtypeDeriving
65-- >>> :set -XOverloadedStrings
66-- >>> :set -XOverloadedStrings
66-- >>> :set -XTypeOperators
67-- >>> :set -XTypeOperators
68+-- >>> setEnv "HSPEC_COLOR" "no"
67-- >>> data User = User { name :: String, age :: Int } deriving (Show, Generic, Typeable)
69-- >>> data User = User { name :: String, age :: Int } deriving (Show, Generic, Typeable)
68-- >>> newtype UserId = UserId Integer deriving (Show, Generic, Typeable, ToJSON)
70-- >>> newtype UserId = UserId Integer deriving (Show, Generic, Typeable, ToJSON)
69-- >>> instance ToJSON User
71-- >>> instance ToJSON User