From 58152beb03f09bb0ac26916f851308773c952064 Mon Sep 17 00:00:00 2001 From: Steffen Date: Mon, 29 Jul 2024 11:29:58 +0200 Subject: [PATCH] refactor(utils): flip arguments bsnoc --- src/Utils.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Utils.hs b/src/Utils.hs index aa3bb03a0..69b114b01 100644 --- 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