made table mode useful again

Kaisia-Estrel · Mar 23, 2022 · 0721f8d · 0721f8d
1 parent 10f4f9d
commit 0721f8d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -30,3 +30,7 @@
          :i -- Print options
   ```
   * Accidentally made table mode useless 
+
+
+* 2.0.0.1 -- 2022-03-23
+  ** Made table mode useful again
diff --git a/src/Process.hs b/src/Process.hs
@@ -40,10 +40,11 @@ flattenForm xs = applyUntil (all isElem) (concatMap foldForm) $ groupForm xs
 reactProdP :: Parser ([Element], [Element])
 reactProdP =
   ((,) `on` (flattenForm . concat))
-    <$> formulaP `sepByParser` charP '+'
+    <$> formulaP' `sepByParser` charP '+'
     <*> (whiteSpace *> separators 
-        *> formulaP `sepByParser` charP '+')
+        *> formulaP' `sepByParser` charP '+')
  where
+  formulaP' = (\a b -> map (onLeaforBranch (second (*a)) (second (*a))) b) <$> (whiteSpace *> numP <|> pure 1) <*> formulaP
   separators = foldr1 (<|>) [ stringP x | x <- ["->", "→", "\\rightarrow"] ]