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