Add instances for IsSecure

This commit is contained in:
Julian K. Arni 2016-09-07 12:31:54 -03:00
parent 29af0bbdf9
commit 76e74f9d5a
2 changed files with 7 additions and 1 deletions

View file

@ -1,3 +1,7 @@
next
----
* Added Eq, Show, Read, Generic and Ord instances to IsSecure
0.8.1
----

View file

@ -1,10 +1,12 @@
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
module Servant.API.IsSecure
( -- $issecure
IsSecure(..)
) where
import Data.Typeable
import GHC.Generics (Generic)
-- | Was this request made over an SSL connection?
--
@ -19,7 +21,7 @@ data IsSecure = Secure -- ^ the connection to the server
-- is secure (HTTPS)
| NotSecure -- ^ the connection to the server
-- is not secure (HTTP)
deriving Typeable
deriving (Eq, Show, Read, Generic, Ord, Typeable)
-- $issecure
--