From b235c2887ed60a8fd48263f6c53e90ee7e2073fd Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 31 Jan 2022 22:49:36 +0200
Subject: Some general refactoring

---
 src/utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/utils.hs')

diff --git a/src/utils.hs b/src/utils.hs
index 4ffdf3b..252804f 100644
--- a/src/utils.hs
+++ b/src/utils.hs
@@ -49,5 +49,5 @@ safeBreak cond ex = safeBreak' cond ex []
 
 safeBreak' _ ex _ [] = throwError ex
 safeBreak' cond ex acc lst@(x : xs)
-  | cond x = pure (acc, lst)
+  | cond x = pure (reverse acc, lst)
   | otherwise = safeBreak' cond ex (x : acc) xs
-- 
cgit v1.3