refactor(utils): flip arguments bsnoc

2024-07-29 11:29:58 +02:00 · 2024-07-29 11:29:58 +02:00 · 58152beb03
commit 58152beb03
parent 803e8bfedb
1 changed files with 3 additions and 3 deletions
--- a/src/Utils.hs
+++ b/src/Utils.hs
@ -714,9 +714,9 @@ bcons :: Bool -> a -> [a] -> [a]
 bcons False _ = id
 bcons True  x = (x:)

-bsnoc :: Bool -> a -> [a] -> [a]
-bsnoc False _ xs = xs
-bsnoc True  x xs = xs ++ [x]
+bsnoc :: Bool -> [a] -> a -> [a]
+bsnoc False xs _ = xs
+bsnoc True  xs x = xs ++ [x]

 -- | Merge/Add any attribute-value pair to an existing list of such pairs.
 --   If the attribute exists, the new valu will be prepended, separated by a single empty space