From 02f965c8f85d9bf6578ebb686658e138140f0105 Mon Sep 17 00:00:00 2001
From: Fraser Tweedale <frase@frase.id.au>
Date: Thu, 14 Dec 2023 10:51:56 +1000
Subject: [PATCH] export Crypto.JOSE.JWK.fromRSAPublic

Fixes: https://github.com/frasertweedale/hs-jose/issues/112
---
 CHANGELOG.md           | 2 ++
 src/Crypto/JOSE/JWK.hs | 1 +
 2 files changed, 3 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 728e5f3..df641d0 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -10,6 +10,8 @@
 - Updated `Crypto.JOSE.JWK.fromX509Certificate` to support Edwards
   curve key types (Ed25519, Ed448, X25519, X448).
 
+- Added `fromRSAPublic :: RSA.PublicKey -> JWK`.
+
 
 ## Version 0.11 (2023-10-31)
 
diff --git a/src/Crypto/JOSE/JWK.hs b/src/Crypto/JOSE/JWK.hs
index ee673d6..72b59cb 100644
--- a/src/Crypto/JOSE/JWK.hs
+++ b/src/Crypto/JOSE/JWK.hs
@@ -70,6 +70,7 @@ module Crypto.JOSE.JWK
   -- * Converting from other key formats
   , fromKeyMaterial
   , fromRSA
+  , fromRSAPublic
   , fromOctets
   , fromX509Certificate
   , fromX509PubKey