Text.TeXMath.Shared: expose isRLSequence.

[API change, non-breaking]

Author: jgm

src/Text/TeXMath/Shared.hs

@@ -35,6 +35,7 @@ module Text.TeXMath.Shared
   , handleDownup
   , isUppercaseGreek
   , toPrimes
+  , isRLSequence
   ) where
 
 
@@ -375,3 +376,8 @@ toPrimes (ESymbol ty s) | ty == Pun || ty == Ord = go s
       Just ('\x2057', t') -> ("''''" <>) <$> go t'
       _ -> Nothing
 toPrimes _ = Nothing
+
+isRLSequence :: [Alignment] -> Bool
+isRLSequence [AlignRight, AlignLeft] = True
+isRLSequence (AlignRight : AlignLeft : as) = isRLSequence as
+isRLSequence _ = False

src/Text/TeXMath/Writers/TeX.hs

@@ -287,7 +287,7 @@ writeExp (EStyled ttype es) = do
   tell [ControlSeq txtcmd]
   tellGroup (mapM_ writeExp $ everywhere (mkT (fromUnicode ttype)) es)
 writeExp (EArray as rows)
-  | isRLSequence as = do
+  | S.isRLSequence as = do
   env <- asks mathEnv
   if "amsmath" `elem` env
      then table "aligned" [] rows
@@ -298,11 +298,6 @@ writeExp (EArray aligns rows) = do
      then table "matrix" [] rows
      else table "array" aligns rows
 
-isRLSequence :: [Alignment] -> Bool
-isRLSequence [AlignRight, AlignLeft] = True
-isRLSequence (AlignRight : AlignLeft : as) = isRLSequence as
-isRLSequence _ = False
-
 table :: T.Text -> [Alignment] -> [ArrayLine] -> Math ()
 table name aligns rows = do
   tell [ControlSeq "\\begin", Grouped [Literal name]]