diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-01-31 22:49:36 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-01-31 22:49:36 +0200 |
| commit | b235c2887ed60a8fd48263f6c53e90ee7e2073fd (patch) | |
| tree | 2a47ec5bc38ef95b65b130d277e6ba41dc9f2213 /src/utils.hs | |
| parent | 7390af67e18e6d17934541dd3c2d6d46cfad84d0 (diff) | |
Some general refactoring
Diffstat (limited to 'src/utils.hs')
| -rw-r--r-- | src/utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |