Add newtype around PaddingStrategy

Author: JordanMartinez

src/Node/Http2/PaddingStrategy.purs

@@ -2,5 +2,18 @@
 -- | I think some were added/removed in major Node versions.
 module Node.Http2.PaddingStrategy where
 
+import Prelude
+
+import Data.Generic.Rep (class Generic)
+import Data.Newtype (class Newtype)
+
+newtype PaddingStrategy = PaddingStrategy Int
+
+derive instance Eq PaddingStrategy
+derive instance Ord PaddingStrategy
+derive instance Newtype PaddingStrategy _
+derive instance Generic PaddingStrategy _
+derive newtype instance Show PaddingStrategy
+
 foreign import paddingStrategyNone :: Int
 foreign import paddingStrategyMax :: Int

src/Node/Http2/Types.purs

@@ -6,6 +6,7 @@ import Prelude
 
 import Data.Generic.Rep (class Generic)
 import Data.Newtype (class Newtype)
+import Node.Http2.PaddingStrategy (PaddingStrategy)
 import Node.TLS.Types (Endpoint)
 
 -- | `Http2Session` extends `EventEmitter`
@@ -81,7 +82,7 @@ type Http2CreateSecureServerOptions r =
   , maxHeaderListPairs :: Int
   , maxOutstandingPings :: Int
   , maxSendHeaderBlockLength :: Int
-  , paddingStrategy :: Int
+  , paddingStrategy :: PaddingStrategy
   , peerMaxConcurrentStreams :: Int
   , maxSessionInvalidFrames :: Int
   , maxSessionRejectedStreams :: Int