diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## [0.2.2.0] - 2023-02-10
+
+- Add `proseFromNonEmptyText` to create `Prose` from `NonEmptyText`.
+
 ## [0.2.1.0] - 2023-01-23
 
 - Use `NonEmptyList` for `chunksOfNonEmptyText`
diff --git a/src/Data/StringVariants.hs b/src/Data/StringVariants.hs
--- a/src/Data/StringVariants.hs
+++ b/src/Data/StringVariants.hs
@@ -34,6 +34,7 @@
     mkProse,
     compileProse,
     proseToText,
+    proseFromNonEmptyText,
 
     -- * Nullable non empty text
     NullableNonEmptyText (..),
diff --git a/src/Data/StringVariants/NonEmptyText.hs b/src/Data/StringVariants/NonEmptyText.hs
--- a/src/Data/StringVariants/NonEmptyText.hs
+++ b/src/Data/StringVariants/NonEmptyText.hs
@@ -15,13 +15,13 @@
     mkNonEmptyTextWithTruncate,
     literalNonEmptyText,
     unsafeMkNonEmptyText,
-    nonEmptyTextToText,
     compileNonEmptyText,
     compileNonEmptyTextKnownLength,
     convertEmptyTextToNothing,
 
     -- * Conversion
     widen,
+    nonEmptyTextToText,
 
     -- * Functions
     takeNonEmptyText,
diff --git a/src/Data/StringVariants/Prose.hs b/src/Data/StringVariants/Prose.hs
--- a/src/Data/StringVariants/Prose.hs
+++ b/src/Data/StringVariants/Prose.hs
@@ -5,6 +5,7 @@
     compileProse,
     literalProse,
     proseToText,
+    proseFromNonEmptyText
   )
 where
 
diff --git a/src/Data/StringVariants/Prose/Internal.hs b/src/Data/StringVariants/Prose/Internal.hs
--- a/src/Data/StringVariants/Prose/Internal.hs
+++ b/src/Data/StringVariants/Prose/Internal.hs
@@ -11,6 +11,7 @@
 import Data.Aeson (FromJSON, ToJSON, ToJSONKey, withText)
 import Data.Aeson.Types (FromJSON (..))
 import Data.String.Conversions (ConvertibleStrings (..), cs)
+import Data.StringVariants.NonEmptyText.Internal (NonEmptyText (..))
 import Data.StringVariants.Util (SymbolWithNoSpaceAround)
 import Data.Proxy
 import Data.Text (Text)
@@ -45,6 +46,9 @@
 mkProse t = case T.strip t of
   "" -> Nothing
   t' -> Just (Prose t')
+
+proseFromNonEmptyText :: NonEmptyText n -> Prose
+proseFromNonEmptyText (NonEmptyText t) = Prose (T.strip t)
 
 compileProse :: QuasiQuoter
 compileProse =
diff --git a/string-variants.cabal b/string-variants.cabal
--- a/string-variants.cabal
+++ b/string-variants.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           string-variants
-version:        0.2.1.0
+version:        0.2.2.0
 synopsis:       Constrained text newtypes
 description:    See README at <https://github.com/MercuryTechnologies/string-variants#readme>.
 category:       Data