@@ -1,10 +1,12 @@
11{-# LANGUAGE DeriveDataTypeable #-}
2+{-# LANGUAGE DeriveGeneric #-}
23module Servant.API.IsSecure
34 ( -- $issecure
45 IsSecure(..)
56 ) where
67
78import Data.Typeable
9+import GHC.Generics (Generic)
810
911-- | Was this request made over an SSL connection?
1012--
@@ -19,7 +21,7 @@ data IsSecure = Secure -- ^ the connection to the server
1921 -- is secure (HTTPS)
2022 | NotSecure -- ^ the connection to the server
2123 -- is not secure (HTTP)
22− deriving Typeable
24+ deriving (Eq, Show, Read, Generic, Ord, Typeable)
2325
2426-- $issecure
2527--