Hide value contructor

Author: oreshinya

src/Node/Simple/Jwt.purs

@@ -1,8 +1,10 @@
 module Node.Simple.Jwt
   ( Secret
-  , Jwt(..)
+  , Jwt
   , Algorithm(..)
   , JwtError(..)
+  , fromString
+  , toString
   , decode
   , encode
   ) where
@@ -17,7 +19,8 @@ import Data.String.Regex (replace)
 import Data.String.Regex.Flags (global)
 import Data.String.Regex.Unsafe (unsafeRegex)
 import Effect (Effect)
-import Node.Buffer (Buffer, fromString, toString)
+import Node.Buffer (Buffer)
+import Node.Buffer as Buffer
 import Node.Crypto.Hash as Hash
 import Node.Crypto.Hmac as Hmac
 import Node.Encoding (Encoding(..))
@@ -59,6 +62,14 @@ instance showJwtError :: Show JwtError where
 
 derive instance eqJwtError :: Eq JwtError
 
+-- | Convert a `String` to a `Jwt`.
+fromString :: String -> Jwt
+fromString = Jwt
+
+-- | Convert a `Jwt` to a `String`.
+toString :: Jwt -> String
+toString (Jwt x) = x
+
 -- | Decode JWT with signature verification.
 decode :: forall payload. ReadForeign payload => Secret -> Jwt -> Effect (Either JwtError payload)
 decode secret (Jwt jwt) =
@@ -104,7 +115,7 @@ algorithmFromString alg
 
 base64URLDecode :: String -> Effect String
 base64URLDecode x =
-  (fromString (unescape x) Base64 :: Effect Buffer) >>= toString UTF8
+  (Buffer.fromString (unescape x) Base64 :: Effect Buffer) >>= Buffer.toString UTF8
 
 unescape :: String -> String
 unescape x =
@@ -129,7 +140,7 @@ sign secret alg input =
 
 base64URLEncode :: String -> Effect String
 base64URLEncode x =
-  escape <$> ((fromString x UTF8 :: Effect Buffer) >>= toString Base64)
+  escape <$> ((Buffer.fromString x UTF8 :: Effect Buffer) >>= Buffer.toString Base64)
 
 escape :: String -> String
 escape =

test/Main.purs

@@ -5,7 +5,7 @@ import Prelude
 import Data.Either (Either(..))
 import Effect (Effect)
 import Effect.Class (liftEffect)
-import Node.Simple.Jwt (Algorithm(..), Jwt(..), JwtError(..), decode, encode)
+import Node.Simple.Jwt (Algorithm(..), Jwt, JwtError(..), decode, encode, fromString)
 import Test.Unit (suite, test)
 import Test.Unit.Assert as Assert
 import Test.Unit.Main (runTest)
@@ -29,30 +29,30 @@ main = runTest do
         payloadOrErr <- liftEffect $ decode secret jwtByHS256
         Assert.equal (Right payload) payloadOrErr
       test "invalid token" do
-        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (Jwt "fjaie.afeoafe.cadiwo.ofwo")
+        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (fromString "fjaie.afeoafe.cadiwo.ofwo")
         Assert.equal (Left InvalidTokenError) payloadOrErr
       test "verify error" do
-        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (Jwt "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Xy3Gvp5nlc")
+        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (fromString "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Xy3Gvp5nlc")
         Assert.equal (Left VerifyError) payloadOrErr
       test "decode error" do
-        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (Jwt "dfiaofao.ffifeadl.afwoefiqw")
+        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (fromString "dfiaofao.ffifeadl.afwoefiqw")
         Assert.equal (Left DecodeError) payloadOrErr
     suite "HS512" do
       test "success" do
         payloadOrErr <- liftEffect $ decode secret jwtByHS512
         Assert.equal (Right payload) payloadOrErr
       test "invalid token" do
-        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (Jwt "fjaie.afeoafe.cadiwo.ofwo")
+        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (fromString "fjaie.afeoafe.cadiwo.ofwo")
         Assert.equal (Left InvalidTokenError) payloadOrErr
       test "verify error" do
-        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (Jwt "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Xy3Gvp5nlc")
+        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (fromString "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Xy3Gvp5nlc")
         Assert.equal (Left VerifyError) payloadOrErr
       test "decode error" do
-        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (Jwt "848q4jfifewww.8382qu3lds.389rnekjffa")
+        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (fromString "848q4jfifewww.8382qu3lds.389rnekjffa")
         Assert.equal (Left DecodeError) payloadOrErr
     suite "Unknown algorithm" do
       test "not supported algorithm error" do
-        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (Jwt "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzM4NCJ9.eyJzd.Xy3Gvp")
+        (payloadOrErr :: Either JwtError Payload) <- liftEffect $ decode secret (fromString "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzM4NCJ9.eyJzd.Xy3Gvp")
         Assert.equal (Left NotSupportedAlgorithmError) payloadOrErr
 
 payload :: Payload
@@ -62,7 +62,7 @@ secret :: String
 secret = "testsecret"
 
 jwtByHS256 :: Jwt
-jwtByHS256 = Jwt "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Xy3Gvp5nlca62KqH66kDKeadYM99jRP-e2S--qVYdbs"
+jwtByHS256 = fromString "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Xy3Gvp5nlca62KqH66kDKeadYM99jRP-e2S--qVYdbs"
 
 jwtByHS512 :: Jwt
-jwtByHS512 = Jwt "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Z5bsx4og_2UL-1WyxulgXXA7VtC01OhFVivvT_C8wS_uY3QUaqDhLzVsTBACNyv8z-VoYkhboTzlBiZ4Gk5mLQ"
+jwtByHS512 = fromString "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJ0ZXN0c3ViIn0.Z5bsx4og_2UL-1WyxulgXXA7VtC01OhFVivvT_C8wS_uY3QUaqDhLzVsTBACNyv8z-VoYkhboTzlBiZ4Gk5mLQ"