diff --git a/lib/haskell/natural4/src/LS/XPile/MathLang/GenericMathLang/TranslateL4.hs b/lib/haskell/natural4/src/LS/XPile/MathLang/GenericMathLang/TranslateL4.hs
index 229c81ac6..a011ec764 100644
--- a/lib/haskell/natural4/src/LS/XPile/MathLang/GenericMathLang/TranslateL4.hs
+++ b/lib/haskell/natural4/src/LS/XPile/MathLang/GenericMathLang/TranslateL4.hs
@@ -30,6 +30,8 @@ module LS.XPile.MathLang.GenericMathLang.TranslateL4 (
   simplifyL4Hlike,
   baseExpifyMTEs,
   noExtraMetadata,
+  -- * Exported for doctests, don't use them! They are private 😠
+  splitGenitives,
 )
 where