1 files changed, 3 insertions, 0 deletions

diff --git a/utils.hs b/utils.hs
index 3e6c2b6..fb1ea96 100644
--- a/utils.hs
+++ b/utils.hs
@@ -44,3 +44,6 @@ count pred xs = xs $> filter pred .> length
 takeUntil :: (a -> Bool) -> [a] -> [a]
 takeUntil _ [] = []
 takeUntil p (x : xs) = x : if p x then takeUntil p xs else []
+
+fromSymEither (Left x) = x
+fromSymEither (Right x) = x
\ No newline at end of file